1:

neuerstring:=StringReplace(alterstring, ' ','<1>',[rfreplaceall]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var i,n:integer;
k:integer;
abbruch:boolean;

abbruch:=false;
k:=0;
for i:=1 to length(stringvar) do
begin
 if stringvar[i]=' ' then inc(k)
 else if k<>0 then 
  for n:= 1 to k do 
   begin
    stringvar[i-n]:='';
    if n=k then begin insert('<'+inttostr(k)+'>', stringvar, i-k); abbruch:=true;break;end;

   end;
if abbruch=true then break;
end;					

1:
2:
3:
4:

while leerzeichenvorhanden do
begin
...//das was oben steht
end;