DBGrid1 färben

[Alterauge]

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
begin
if Column.Index = 2 then begin {nummer der spalte im dbgrid}
    aValue:= Column.Field.asString; {suchbegriff auslesen}
    if aValue = 'Erfasst' then begin
      DBGrid1.Canvas.Brush.Color := clred;
end;
end;
end;

geht nicht ? was ist falsch