Färben der ListViewzeile funzt nicht ganz

[Sharky]

Hai Akut-Programming,

ich habe zwar kein Oracel aber es sollte auch so klar sein was ich mache
Um pro Item "zu speichern" ob der Mitarbeiter da ist misbrauche ich einfach die Eigenschaft Item.Checked.
Diese werte ich dann im OnItemDras aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ListItem: TListItem;
begin
  ListView1.Clear;  // Listview löschen
  with Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM kontakte ORDER BY name';
    Open;
    First;
    While not (Eof) do
    begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := FieldByName ('name').AsString;
      ListItem.Checked := FieldByName ('anwesend').AsString = 'JA';
      Next;
    end;
  end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (Item.Checked) then
  begin
    (Sender As TListView).Canvas.Font.Color := clgreen;
  end
  else
  begin
    (Sender As TListView).Canvas.Font.Color := clred;
  end;
end;