سلام
میخواستم اگر فیلد جمع کوچکتر از 0 بود رنگ متن اون فیلد قرمز بشه ولی وقتی متن زیرو مینویسم ارور میده.

dbgrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);


اینم ارور
Untitled.jpg

کد زیر درست کار میکنه ولی اینطوری دائما داره چک میکنه

 if query1.FieldByName('Total').AsFloat < 0  then  begin

   DBGridEh1.Columns[1].Font.Color := clRed;

  end

Else

  begin

   DBGridEh1.Columns[1].Font.Color := clBlack;

  end;