Помогите найти ошибку (простой веб-чекер на валидность)

[saschawiebe]

У меня проблемка, решил написать простой веб-чекер к одному сайту, так как вручную дело муторное.
Всё необходимое есть, капчи нет.

Принцип работы:
- Я отправляю запрос на регистрацию нового персонаж.
- Если пишет "аккаунт уже зарегистрирован" - Good
- Если пишет "аккаунт успешно зареган" - Bad

Я примерно понял суть как это нужно написать (сам я в коддинге полный 0)... попытался по туториалу написать свой код ... и вот что получилось. Код еще не готов, но уже имеются ошибки. Прошу помочь, подсказать)

unit checker;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Data:TStringList;
  go:string;
  HTML:string;
  i:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Data:=TstringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
 if OpenDialog1.Execute then
  begin
  Data.Clear;
  Data.LoadFromFile(OpenDialog1.FileName);
  Label2.Caption:=inttostr(Data.Count);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
go:='http://site.ru';
Data.Add('login='+ Data[i]);
Data.Add('password=123123');
Data.Add('repassword=123123');
Data.Add('email=[Ссылки могут видеть только зарегистрированные пользователи. ]');
HTML:=IdHTTP1.Post('go, data');
Memo1.Lines.Add(HTML);

end;
end.

Выделяется строка HTML:=IdHTTP1.Post('go, data');
Ошибка какая-то

[артём612]

Цитата: Выделяется строка HTML:=IdHTTP1.Post('go, data'); Ошибка какая-то

Idhttp1.post имеет 2 аргумента а вы посылаете только 1

Idhttp1.post(go,data); так должно быть правильно