DBGrid DrawColumnCell

[StoRmtec]

Hallo
Habe ein Probelm und zwar hole ich mir Daten in die DBGrid und da möchte ich gerne immer wenn ein - dafür steht sollte die farbe rot werden sonst grün

Delphi-Quellcode:

procedure Tfrm_depot.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  holdColor: TColor;
 begin
 holdColor := DBGrid1.Canvas.Brush.Color;
  if Column.FieldName = 'gewinn' then
    if (Column.Field.text = '--') then
    begin
      DBGrid3.Canvas.Font.Color := clred;
      DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid3.Canvas.Brush.Color := holdColor;
    end;
   if (Column.Field.text = '') then
    begin
      DBGrid3.Canvas.Font.Color := clgreen;
      DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid3.Canvas.Brush.Color := holdColor;
    end;
end;

bringe es aber nicht hin wenn ich den Betrag richtig hineinschreibe geht es.

Danke

StoRmtec