Auf IdHttp.Get warten! [Gelöst](siehe Edit)

[Deadinpac]

Moin,

ich bräuchte mal wieder eure Hilfe!

Ich habe hier ein Code womit ich mir den Quelltext ca. 30 mal von einer Webseite hole.
Dann lasse ich in einer Listbox die Einträge färben. Klappt ja auch eigentlich ganz gut
nur beim Refresh nicht.

Und Ich denke mir mal das es an der IdHttp liegt da er mir den Quelltext nicht aktualisiert
oder nicht schnell genug holt.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
Juser := ListBox1.Items[Index];
Memo1.Text:= IdHttp1.Get('http://www.jappy.de/user/'+Juser);
  if Pos ('<a href="/line/start/'+Juser+'" target="' , Memo1.Text) <> 0 then
    ZeileFaerben(Index,ClGreen,Listbox1,Index,Rect)
  else
    ZeileFaerben(Index,ClRed,Listbox1,Index,Rect);
end;

Meine Frage wie bringe ich den Code dazu das er auf den Quelltext wartet bis er komplett geladen ist
wollte wenn es geht nicht mit TWebBrowser arbeiten dort würde es mit Readystate <> Complete gehen.

Hoffe Ihr habt eine Idee

Liebe Grüße
Deadinpac