Parserbau Grundlagen + Verständnisfrage

[Nintendo]

Hey, danke Euch allen für Eure Antworten. Habe jetzt folgende Version für SkipSpaces:

Delphi-Quellcode:

procedure MoveForward;
begin
  while FLook=' ' do FLook:=GetChar;
  if IsNewLine(FLook) then FLook:=GetChar;
end;

//Und nun meine Version für GetToken:

function GetToken: String;
begin
 FLineNum := 0;
 while FLinenum < FParseThis.Count do
 begin
  FPos := 1;
  while FPos<=Length(FParseThis[FLineNum]) do
  begin
    MoveForward;
    FLook := GetChar;        //nächstes Zeichen
    Token := Token + Flook;  //Token bauen
    inc(FPos);               //Zeichenposition anpassen
  end;
  inc(FLineNum);
 end;
 Result := FToken;
 DoGetToken(FToken);
end;

Nun gerät GetToken aber in eine Endlossschleife. Warum das jetzt?