Непонятная проблема

[CrazyDude]

Здравствуйте!

for i:=1 to 20 do
begin
  sleep(1000);
  page:=W.Get('http://antigate.com/res.php?key=atatata&action=get&id='+capid);
  if pos('|',page) > 0 then
  begin
    showmessage('captcha found');
    position:=pos('|',page);
    delete(page,1,position);
    capnumber:=page;
    showmessage(capnumber);
    Exit;
  end;
end;
showmessage('EVERYTHING IS FINE FTW?');

Есть такой цикл, я раставил везде мессаги чтобы следить за работоспособностю, и все работает отлично, показуется 2 сообщение, но вот за пределами цикла, showmessage('EVERYTHING IS FINE FTW?'); не работате, также не работает все что дальше цикла, никак не могу понять в чем проблема...

[Пепел Феникса]

exit выходит не из цикла а из подпрограммы(процедура/функция)

[CrazyDude]

Сообщение от Пепел Феникса

exit выходит не из цикла а из подпрограммы(процедура/функция)

Точно! Спасибо :3