Achso und in Richtung Optimierung wäre es gut, wenn du die Wörter tatsächlich von ihren Anhängseln trennst. Dann ersparst du dir beim durchsuchen die Pos-Function und kannst direkt vergleichen.
Code:
function getWord(s:string):string;
var i:byte;
zeichen: string[1];
wort: string;
begin
for i:=0 to length(s)-1 do begin
zeichen:=s[i];
if zeichen<>'\' then wort:=wort+zeichen
else result:=wort;
end;
result:=wort;
end;
Not tested!