СМС через сайт и Synapse

[xakkkkker]

Здравствуйте. Пишу программу для отправки смс через сайт.
Загрузка капчи сделал, а вот отправка данных что то не идет. Скажите что не так делаю. Также прилагаю весь исходник.
По нажатию кнопки 1 происходит загрузка капчи, по нажатию кнопки 2 происходит отправка данных.

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 TForm1.Button1Click(Sender: TObject);
 var
  http: THTTPSend;
  jpeg: TJpegimage;
  Url: String;
  Server: String;
  Challenge: String;
begin
  Memo1.Lines.Clear;
  http:= THTTPSend.Create;
  http.HTTPMethod('GET','https://sendsms.megafon.ru/');
  Memo1.Lines.LoadFromStream(http.Document);
  Url:= 'https:'+GetUrl(Memo1.Text);
  Edit1.Text:= Url;

  http.Clear;
  http.HTTPMethod('GET', Url);
  Memo1.Lines.LoadFromStream(http.Document);

  Server:= GetUrlEx('server', Memo1.Text);
  Challenge:= GetUrlEx('challenge', Memo1.Text);
  Memo1.Lines.Add(Server);
  Memo1.Lines.Add(Challenge);

  http.Clear;
  http.HTTPMethod('GET', Server+'image?c='+Challenge);
  jpeg:= TJpegimage.Create;
  jpeg.LoadFromStream(http.Document);
  Image1.Picture.Assign(jpeg);

  jpeg.Free;
  http.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  http: THTTPSend;
  d: TStringStream;
begin
   http:= THTTPSend.Create;
 with http do
  begin
    d:=TStringStream.Create;
    D.WriteString('prefix='+Edit2.Text);
    D.WriteString('addr='+Edit3.Text);
    D.WriteString('message='+Memo3.Text);
    D.WriteString('recaptcha_response_field='+Edit4.Text);
    Http.Document.LoadFromStream(D);
     if httpMethod('POST', 'https://sendsms.megafon.ru/') then
      Memo2.Lines.LoadFromStream(http.Document);
  end;
   http.Free;
   d.Free;
end;

[Mifody]

эээм, проверять сейча код не буду, но на вскидку:
1. при отправке вполне возможно нужны куки из получения картинки
2. при отправке передается текст капчи, а код? хотя вполне возможно он как раз хранится в куках (см. п.1)