Помогите отправить запрос через HTTPSend - Delphi - Ответ 2888817

function GetUrl(Value: String): String;
var
  I: Integer;
begin
  I:= Pos('//www.google.com/recaptcha/api/', Value);
  Delete(Value, 1, I-1);
  I:= Pos('"', Value);
  Result:= Copy(Value, 1, I-1);
end;
 
function GetUrlEx(SubStr, Value: String): String;
var
  I: Integer;
begin
  I:= Pos(SubStr, Value);
  Delete(Value, 1, I);
  I:= Pos('''', Value);
  Delete(Value, 1, I);
  I:= Pos('''', Value);
  Result:= Copy(Value, 1, I-1);
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
  http: THTTPSend;
  jpeg: TJpegimage;
  Url: String;
  Server: String;
  Challenge: String;
begin
Form1.ComboBox1.Text:='+7 927';
Form1.Memo1.Lines.Clear;
  http:= THTTPSend.Create;
  http.HTTPMethod('GET','https://sendsms.megafon.ru/');
  Form1.Memo1.Lines.LoadFromStream(http.Document);
  Url:= 'https:'+GetUrl(Form1.Memo1.Text);
  Form1.Edit1.Text:= Url;
 
  http.Clear;
  http.HTTPMethod('GET', Url);
  Form1.Memo1.Lines.LoadFromStream(http.Document);
 
  Server:= GetUrlEx('server', Form1.Memo1.Text);
  Challenge:= GetUrlEx('challenge', Form1.Memo1.Text);
  Form1.Memo1.Lines.Add(Server);
  Form1.Memo1.Lines.Add(Challenge);
 
  http.Clear;
  http.HTTPMethod('GET', Server+'image?c='+Challenge);
  jpeg:= TJpegimage.Create;
  jpeg.LoadFromStream(http.Document);
  Form1.Image1.Picture.Assign(jpeg);
 
  jpeg.Free;
  http.Free;
  Form2.Timer1.Enabled:=false;
  end;