Post запрос с помощью Webrowser

[eldar]

Сталкнулся с очередной проблемой
вот код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
Flags, TargetFrameName, PostData, Headers: OleVariant;

s:string;


begin


S := Format('login=fdser&password=wq1234 &button.x=27&button.y=8',
[]);
PostData := VarArrayCreate([1,
Length(S) + 1], varByte);
System.Move(S[1], VarArrayLock(PostData)^,
Length(S) + 1);
VarArrayUnlock(PostData);

WebBrowser1.Navigate('http://www.ipweb.ru/cgi-bin/auth.cgi',Flags,
TargetFrameName, PostData, Headers);

end;




end.

я бы хотел добавить туда два edit
логин и пароль
ну и получить вот типо того
S := Format('login='+edit1.text'password ='+edit2.text'button.x=27&button.y= 8',
[]);

ну программа выдаёт ошибку
в чём дело?