Bestimmte Zeilen einer TListbox färben

[obscureSg]

Ich habe das ähnliche Problem =(

Delphi-Quellcode:

procedure ZeileFaerben(Zeile:integer;Farbe:integer;Listbox:TListbox;
  Index:Integer;Rect:TRect);
begin
  if Index<>Zeile then
    Farbe:=clRed;

//  Listbox.Canvas.Brush.Color:=clWhite;
  //Listbox.Canvas.Pen.Color:=Farbe;
 // Listbox.Canvas.FillRect(Rect);
  Listbox.Canvas.Font.Color:=Farbe;
 // Listbox.Canvas.TextOut(Rect.Left,Rect.Top,Listbox.Items[Index]);
end;

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
Name: string;
Farbe,count, i : integer;
begin

begin
count := listbox1.Items.Count;
label1.Caption := inttostr(count);
Farbe := clRed;
if


listbox1.Items.Text = 'verliehen' then

  ZeileFaerben(Index,Farbe,Listbox1,Index,Rect) ;
//canvas.Font.Color := clRed;

 // for i := 0 to count do

  //if
  //listbox1.Items.Text = 'verliehen' then

  end;
end;

das alles funktioniert nicht =( Ich möchte das in meiner Listbox nur die einträge rot gefärbt werden, die das wort "verliehen" haben.

Kann mir wer helfen??