Endlosschleife, finde sie nicht, hilfe!

[Sh4dd4r]

ich bin es schritt für schritt durchgegangen und habs hinbekommen... jetzt hab ich nurnoch 1 problem. wenn ich mein programm starte und eine bestimmte sache mache hängt es sich auf, ohne fehlermeldung... das liegt normalerweise an einer endlosschleife oder? oder kann es noch an etwas anderem liegen?

könnte es sein dass eine for i:=1 to 2800 schleife zu lange braucht? hier hab ich sie:

Delphi-Quellcode:

procedure TForm1.WortWandel;
var  zeile: string; b,h: integer;
begin
  WList1.NumberOfWords:=0;

// Textdatei wird lesbar gemacht

  AssignFile(wordlist1,'wordlist1.txt');
  reset(wordlist1);

  // Einlesen bestimmter Zeilen der Textdatei


    for h:=1 to Anzahl_Zufallszahlen do begin
      for b:=1 to (Zufallszahlen[h]-1) do begin
        readln(wordlist1);
      end;
      readln(wordlist1,zeile);
      WList1.word[h]:=zeile;
    end;
    WList1.NumberOfWords:=Anzahl_Zufallszahlen;
  CloseFile(wordlist1);
end;

die schleife mit b läuft bis zu einer zufallszahl (damit wird eine zufällige zeile aus einem textdokument angewählt und anschließend in ein array gespeichert.
schleife mit h wird so oft durchlaufen, wieviele zufällige zeilen der benutzer möchte... hab im testlauf da mal 10 angegeben. kann das den pc überlasten oder länger als 1 sek dauern?