[melwork]

здравствуйте.
пишу в среде delphi xe.
возникают ошибки при компиляции кода. код приведен ниже.
сама форма состоит из 4 радиобаттонов, 4 полей ввода (Edit) и 1 кнопки.
устанавливается значение 1 из радиобаттонов, вводятся данные для отправка пост запроса, далее анализируется запрос и выводится результат.
прошу подсказать что и где править. код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
  IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton; ///Кнопки прошу неучитывать как и эдиты, тут дорабатывать буду. и вводные данные пойдут в edata
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 edata:=tstringlist.create;
 idhttp1.HandleRedirects:=true;


  edata.Add('data1=xxx');
  edata.Add('data1=yyy');
  edata.Add('data1='+datar.Text);
  edata.Add('data1='+datas.Text);
  edata.Add('data1=xxx');
  edata.Add('Submit=Start!');

page:=idhttp1.post('https://site.ru/page.html',edata);
if pos('Success!',page)<>0 then begin
result.caption:='Удачно!';
end
else begin
result.caption:='Неудачно!';
end;
edata.free;
end.

заранее спасибо.