(delphi)Работа со строками

[zoza1]

Дорогие форумчане подмогните пажалуйста подскажите почему у меня выдает ошибку вот эта програмка:

Изначально хотел: перенести из исходной строки все слова представляющие собой запись числа.

var
i,p,k:integer;
slovo,text1:string;
begin
text1:=edit1.Text;
p:=0;
i:=0;
while i<>length(text1) do
begin
slovo:='';
repeat
i:=i+1;
slovo:=slovo+text1[i];
until text1[i]=' ';
for k:=1 to length(slovo) do
if ((slovo[k]>'0') and (slovo[k]<'9')) then
inc(p);
if length(slovo)=p then
edit3.text:=edit3.text+' '+slovo;
end;
end;

заранее спс