Id Get&Post в цикле

[TilerDerton]

Вобщем пытаюсь зациклить следующее:

procedure TForm1.Button1Click(Sender: TObject);
var
p,p1,p2:integer;
x:integer;
list: TStringList;
s1,s2,s3:string;
begin

///for x:=1 to 100 do begin

list := TStringList.Create;
s1:=idHTTP1.Get('http://sayt');
memo1.Text:=s1;
p:=pos('<td>1</td>',s1);
s2:=copy(s1,p+175,30);
p1:=pos('<td>',s2);
p2:=pos('</td>',s2);
memo2.Text:=copy(s2,p1+4,p2-p1-4);
s3:=memo2.Text;
list.Add('xxx='+edit1.text);
list.Add('yyy='+s3);
list.Add('submit=submit');
idhttp2.Post('http://sayt2.php',list);
list.Free;

///end;

end;

Если цикла нет, то все работает, как только он появляется по клику программа виснет.
Где-то тут читал, что надо вставлять задержки, пробовал через процедуру:

Procedure delay(Sec:Integer);
Var I:Integer;
Begin
For I:=1 to Sec do
begin
Sleep(1000);
end;
end;

Все точно так же.
В чем ошибка?
Заранее спасибо.

[KORN]

application.processmessages; добавь в цикл

[TilerDerton]

KORN, большое спасибо, все получилось!