Schriftart einer Zeile von DBGrid "fett markieren"

[TypusMensch]

Hab es jetzt so. Klappt aber nicht, wenn ich Prog starte. Sind entweder alle fett markiert oder gar nicht, entsprechend dem was nun am Start im ersten Datensatz steht.

Delphi-Quellcode:

procedure THaupt.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var i : integer;
    C: TCanvas;
begin
  if Sender is TDBGrid then
  begin
    C := TDBGrid(Sender).Canvas;
    for i := 0 to Table1.RecordCount do
      begin
      if Table1.FieldByName('Markiert').AsBoolean = True then
         C.Font.Style := [fsBold] else
         C.Font.Style := [];
      end;
    C.FillRect(Rect);
    C.TextRect(Rect, Rect.Left, Rect.Top, Column.Field.AsString);
  end;
end;