Wort aus String extrahieren

[rawsoul]

Mahlzeit zusammen!

Ich möchte für mein nächstes Großprojekt (relativ gesehen - ich bin neu in Pascal) einzelne Wörter aus einem String extrahieren. Im Moment sieht der Code so aus:

Delphi-Quellcode:

Function WordFromString(Str:String;WordPos:Integer):String;
Var Character,FinalWord:String;i,j:Integer;
Begin
  j:=0;
  i:=0;
  repeat begin
           Finalword:='';
           repeat
             begin
               Character:=Str[1+i];
               i:=i+1;
               Finalword:=Finalword+Character
             end
           until
             (Character='') or (Character=' ');
           j:=j+1;
           end until
               j=WordPos;

  result:=Finalword

End;

Die Funktion soll dann mit WordFromString('eins zwei drei vier',3) das dritte Wort auslesen und als result festlegen. Soweit funktioniert es auch. Aber:
Sobald ich das letzte Wort auslesen lassen möchte, schmiert mir der Debugger ab :[

Es wäre genial, wenn mir da jemand helfen könnte oder einen nützlichen Tipp parat hat

LG