im sql-query werte in rot darstellen

[tom_po]

habe es so jetzt ergänzt, funktioniert aber noch nicht:

Delphi-Quellcode:

procedure TForm3.DBISAMDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if ('stock' <= floattostr(100)) then
    begin
      canvas.Font.Style := canvas.Font.Style + [fsBold];
      canvas.Font.Color  := clred;
    end;
end;

field "stock" ist vom data-type float