Anfang und Ende eines String teils ermitteln

[jacky213]

Hallo, wie die Überschrift schon sagt, hatte ich vor einen Teil eines Strings in einem String zu suchen
und dessen Anfang und Ende zu ermitteln.

Beispiel

String:= 'Das ist der String den ich untersuchen möchte';

Ich möchte nun von der Position 16 ab den Anfang und das ende vom entsprechenden Wort ermitteln.
Wenn alles richtig läuft dann sollte der Anfang und das Ende vom Wort String ermittelt werden.
Hierzu habe ich folgende funktoonen geschrieben aber die Rückgabewerte stimmen einfach nicht und
ich weis nicht warum.

Zum Suchen des Wort Anfang:

Delphi-Quellcode:

function StringPartStart (str:string; start:integer) : integer;
var
found: boolean;
begin
found:=false;
while found=false do begin
if Copy(Str, start, 1)=' ' then found:=true;
start:= start -1;
end;
Result:= Start + 2;
end;

Zum Suchen des Wort Endes:

Delphi-Quellcode:

function StringPartEnd (str:string; start:integer) : integer;
var
found: boolean;
begin
found:=false;
while found=false do begin
if Copy(Str, start, 1)=' ' then found:=true;
start:= start +1;
end;
Result := Start - 2;
end;

Aber bei beiden funktionen kommt als Ergebnis immer eine ca. 7 stellige zahl und ich weis nicht
warum das so ist.