Bestimmte Zeilen einer TListbox färben

[Aike]

Ok, du hast recht Das Problem war wirkich das erneute Durchlaufen aller Items.

Ich habe es so gelöst und es funktioniert 1a:

Delphi-Quellcode:

procedure TForm1.Listbox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var Farbe:integer;
    Name:string;
begin
  Farbe:=clBlue;
  Open(RegKey);
  Name:=Listbox1.Items[index];
  if regist.ValueExists(Name+'+') then
    ZeileFaerben(Index,Farbe,Listbox1,Index,Rect)
  else
    ZeileFaerben(Index,clBlack,Listbox1,Index,Rect);
end;

Jetzt ist es auch so schön einfach Vielen Dank!