problem mit schleife

[o0o]

hi leutz,...also ich habn problem mit ner schleife^^
ich weiss nicht wieso aber die schleife laeuft mal 3x durch und mal 2x immer unterschiedlich und dann hoert es weiss gott wieso auf weiterzumachen 0_o
das programm haengt nicht oder so aber es hoert einfach auf mitten in der schleife ohne fehlermeldung.

so habe ich meine schleife gestalted:

Delphi-Quellcode:

var i: integer;
  doc: IHTMLDOCUMENT2;
  url: String;
begin
for i:=0 to 10 do
  begin
    delay(75000);
    IdHTTP1.HandleRedirects := True;
  url := 'http://www.sanook.com/xxx';
  doc := GetDocument(IdHttp1.Get(url)) as IHTMLDocument2;
  ExtractLinks(doc, memo2.lines);//links extrahieren
  delay(200);
  findlinks('http://www.sanook.com/xxx', false);//best. links finden

 nummer:=nummer+1;
 label2.caption:=inttostr(nummer);//durchlaeufe zaehlen

  embeddedwb1.navigate(listbox1.items[0]);
embeddedwb2.navigate(listbox1.items[1]);
embeddedwb3.navigate(listbox1.items[2]);
embeddedwb4.navigate(listbox1.items[3]);
listbox1.clear;
memo2.clear;

        Application.ProcessMessages;
  end;

also ich weiss beim besten willen nicht weiter,..waere nice wenn sich jemand mal kurz gedanken machen koennte wieso das so ist wie es ist^^

thx im vorraus

da o0o

btw was mir aufgefallen ist ich hab im taskmanager geguggt und sah dass die groesse vom programm durch das stehenbleiben der schleife immer weiter und weiter angestiegen ist 0_o (beim 3fachen groesse hab ich beendet)