procedure TForm1.EjunDBGrid1CellGetColor(Sender: TObject; ACoord: TPoint;
var AColor: TColor);
begin
if EjunDBGrid1.Cells[3, ACoord.Y].AsFloat < 0 then
AColor := clRed
else
AColor := clWindow;
end;
var AColor: TColor);
begin
if EjunDBGrid1.Cells[3, ACoord.Y].AsFloat < 0 then
AColor := clRed
else
AColor := clWindow;
end;