im sql-query werte in rot darstellen

[tom_po]

ich habe den Code jetzt so geändert, geht aber noch nicht...

Delphi-Quellcode:

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