Bestimmte Zeilen einer TListbox färben

[obscureSg]

hab ich jetzt auch probiert, geht aber auch nicht! der färbt die zeilen einfach garnicht!ich hatte es mal mit einer forschleife probiert sodass er bei der listbox1 von zeile 0 bis litbox1.items.count (letzten eintrag der listbox) nach dem wort"verliehen" sucht und diese zeile dann färben soll1 geht aber überhaupt nicht!

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if Control is TListbox then
  begin
    TListbox(Control).Canvas.FillRect(Rect);
    if pos('verliehen',TListbox(Control).Items.Strings[Index]) > 0 then
      TListbox(Control).Canvas.Font.Color := clRed
    else
    if odSelected in  State then
      TListbox(Control).Canvas.Font.Color := graphics.clHighlightText
    else
      TListbox(Control).Canvas.Font.Color := graphics.clBtnText;

    TListbox(Control).Canvas.TextOut(Rect.Left, Rect.Top, TListbox(Control).Items[Index]);
  end;
end;