Сделать так, чтобы пока пользователь не введет капчу и не нажмет на кнопку, процесс не продолжался

 sMemo1.Lines.Add('http://www.google.com/recaptcha/api/image?c='+form1.memo5.Text);
  HTTP.Get(smemo1.text, str);
  str.SaveToFile('c:\image.jpg');

Нужно как-то сделать, чтобы когда антигейт даст ответ, и заполнил edit. После чего скрипт продолжает работу
  sMemo1.Lines.Add('http://www.google.com/recaptcha/api/image?c='+form1.memo5.Text);
  HTTP.Get(smemo1.text, str);
  str.SaveToFile('c:\image.jpg');
  Form4.Image1.Picture.LoadFromFile('c:\image.jpg');
  Form4.sEdit1.clear;
  form4.ShowModal;
  Data.Free;
  Application.ProcessMessages;
  AntiGateKey := 'e9c4cac0c52894de4a8a0850f40f3c41';
  CaptchaID := RecognizeAG('c:\image.jpg', AntiGateKey, CaptchaText);
  form4.sEdit1.text:=CaptchaText;
  sMemo1.Text:=HTTP.Get('http://www.yopmail.com/ru/email-generator.php');
  stroka:=pars('value="',sMemo1.Text,'@');
  memo1.Clear;
  memo1.Lines.Add(stroka+'@yopmail.com');

procedure TForm1.sSpeedButton1Click(Sender: TObject);
var
HTTP:tidhttp;
Data:tstringlist;
stroka,a,tokens,GPost,GGPost,parsing,hey,del,pars1,pars2,pars3,pars4:string;
Doc:IHTMLDocument2;
CM:TIdCookieManager;
a8:variant;
str:TMemoryStream;
y,s,i, b, length, j, gen, ii:Integer;
number, small, big, tmp: Char;
CaptchaID: integer;
CaptchaText, AntiGateKey: String;
f: textfile;
ss,l,p,h,k,subj,mymess,pf,pt, Request,crtime, ftoken, tcur, lclick, tid, fid,att:String;
list:TStringList;
log, pas, text: string;
begin
ii:=0;
//http:=TIdHTTP.Create();
//HTTP.HandleRedirects:=True;
//Data:=TStringList.Create;
//CM:=TIdCookieManager.Create();
//str:=TMemoryStream.Create;
if sRadioButton1.checked then begin
http:=TIdHTTP.Create();
HTTP.HandleRedirects:=True;
Data:=TStringList.Create;
CM:=TIdCookieManager.Create();
str:=TMemoryStream.Create;
 Randomize;
  length := 10;
 for i := 0 to length-1 do begin
 number := char(48+random(10));
 small := Char(65+Random(25));
 big := Char(97+Random(25));
 gen:= Random(3);
 case gen of
 0: tmp := number;
 1: tmp := small;
 2: tmp := big;
end;
form1.Edit2.text := form1.Edit2.Text + tmp;
end;
 begin
  HTTP.Request.Host:='samp-rp.su';
  HTTP.Request.Connection:='keep-alive';
  HTTP.Request.Accept:='text/javascript, application/javascript, */*';
  HTTP.Request.CustomHeaders.Add('X-Requested-With: XMLHttpRequest');
  HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.93 Safari/537.36 OPR/32.0.1948.69';
  HTTP.Request.ContentType:='application/x-www-form-urlencoded';
  HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  HTTP.Request.Referer:='http://samp-rp.su/ucp.php?mode=register&sid=bfdad164dd4f08b45ed9e39efe6a9f77';
  sMemo1.Text:=HTTP.Get('http://samp-rp.su/ucp.php?mode=register');
  stroka:=Pars('"form_token" value="',sMemo1.Text,'" />');
  memo5.Clear;
  Memo5.Lines.Add(stroka);
  Data.Add('agreed=ß ñîãëàñåí ñ ýòèìè óñëîâèÿìè');
  Data.Add('change_lang=');
  Data.Add('creation_time=1444222351');
  Data.Add('form_token='+stroka);
  GPost:=HTTP.Post('http://samp-rp.su/ucp.php?mode=register', Data);
  sMemo1.Clear;
  stroka:=Pars('"text/javascript" src="',GPost,'" ><');
  hey:=http.Get(stroka);
 
  parsing:=Pars('challenge : ',hey,',');
  memo5.Clear;
  memo5.Lines.Add(parsing);
  del:=memo5.Lines[0];
  Delete(del, 1, 1);
  Memo5.Lines[0]:=del;
  sMemo1.Clear;
  sMemo1.Lines.Add('http://www.google.com/recaptcha/api/image?c='+form1.memo5.Text);
  HTTP.Get(smemo1.text, str);
  str.SaveToFile('c:\image.jpg');
  Form4.Image1.Picture.LoadFromFile('c:\image.jpg');
  Form4.sEdit1.clear;
  form4.ShowModal;
  Data.Free;
  Application.ProcessMessages;
  AntiGateKey := 'e9c4cac0c52894de4a8a0850f40f3c41';
  CaptchaID := RecognizeAG('c:\image.jpg', AntiGateKey, CaptchaText);
  form4.sEdit1.text:=CaptchaText;
  sMemo1.Text:=HTTP.Get('http://www.yopmail.com/ru/email-generator.php');
  stroka:=pars('value="',sMemo1.Text,'@');
  memo1.Clear;
  memo1.Lines.Add(stroka+'@yopmail.com');
  Data.Add('username='+form1.edit2.Text);
  Data.Add('email='+form1.memo1.Text);
  Data.Add('email_confirm='+form1.memo1.Text);
  Data.Add('new_password='+form2.edt3.Text);
  Data.Add('password_confirm='+form2.edt3.Text);
  Data.Add('lang=ru');
  Data.Add('tz=3');
  Data.Add('recaptcha_challenge_field='+form1.memo5.Text);
  Data.Add('recaptcha_response_field='+form4.sEdit1.Text);
  Data.Add('agreed=true');
  Data.Add('change_lang=0');
  pars1:=Pars('"confirm_id" value="',hey,'" />');
  Data.Add('confirm_id='+pars1);
  Data.Add('submit=Îòïðàâèòü');
  pars2:=Pars('"creation_time" value="',hey,'" />');
  Data.Add('creation_time='+pars2);
  pars3:=Pars('"form_token" value="',hey,'" />');
  Data.Add('form_token='+pars3);
  GGPost:=HTTP.Post('http://samp-rp.su/ucp.php?mode=register',Data);
  if Pos('Аккаунт создан. Тем не менее,',GGPost) <> 0 then begin
  ShowMessage('Авторизация GOOD');
  end
  else
  ShowMessage('Ne GOOD');
 
end;
end;