Bestimmte Zeilen einer TListbox färben

[Klaus01]

Versuche es einmal so:

Delphi-Quellcode:

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

begin 
  count := listbox1.Items.Count; 
  label1.Caption := inttostr(count); 
  Farbe := clRed; 
  if listbox1.Items.Strings[index] = 'verliehen' then  //<-- index eingebaut
     ZeileFaerben(Index,Farbe,Listbox1,Index,Rect) ; 
    
 //canvas.Font.Color := clRed; 

// for i := 0 to count do 

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

Grüße
Klaus