for i:=1 to 3 do
begin
  sleep(5000);
  page:=W.Get('http://antigate.com/res.php?key=atatatata&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?');