im sql-query werte in rot darstellen

[tom_po]

mein code sieht momentan so aus, geht aber noch nicht, angezeigte Zahlen im String "laufen durch".

Delphi-Quellcode:

procedure TForm3.DBISAMDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
 begin
   DBISAMQuery1.SQL.text := 'select * from stockfabric';
   DBISAMQuery1.Open;
  if dbisamquery1.FieldByName('stock').Asfloat = 100 then
    begin
      dbisamdbgrid1.Font.Style := canvas.Font.Style + [fsBold];
      dbisamdbgrid1.Font.Color  := clred;
    end else  dbisamDBGrid1.Font.Color := clBlack;
    dbisamdbgrid1.Canvas.FillRect(Rect);
    dbisamdbgrid1.DrawTextBiDiModeFlags(dbisamdbgrid1.Canvas.Handle);
 end;

mkinzler, wo soll ich deinen Denkanstoss einbauen?