Блаузер на делфи дописать

[Deman-007]

Я не мастер,но учусь вот уже несколько дней пытаюсь дописать браузер,чтобы в нем появилась кнопка для входа в онлайн игру.Ну и пару кнопок которые по циклу выполняли определенные действия.Плиз помогите дописать авторизацию в игре (www.ganjawars.ru) и хотяб описать одну кнопку на действия я дальше сам разберусь.
Вот сам блаузер на делфи. http://zalil.ru/31981027 кому интересно

Вот исходник:

unit Unit1;

interface

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

type
Tbrowser = class(TForm)
WebBrowser1: TWebBrowser;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
ComboBox1: TComboBox;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
OpenDialog1: TOpenDialog;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
ImageList1: TImageList;
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
browser: Tbrowser;

implementation

{$R *.dfm}

procedure Tbrowser.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key= VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text );
end;

procedure Tbrowser.ToolButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
WebBrowser1.Navigate(OpenDialog1.Fi leName);
ComboBox1.Text:=OpenDialog1.FileNam e;
end;
end;

procedure Tbrowser.ToolButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure Tbrowser.ToolButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure Tbrowser.ToolButton4Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;

procedure Tbrowser.ToolButton5Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure Tbrowser.ToolButton6Click(Sender: TObject);
var
PostData, Headers:OLEvariant;
begin
WebBrowser1.ExecWB(OLECMDID_PRINT,O LECMDEXECOPT_DODEFAULT,PostData, Headers);
end;

procedure Tbrowser.WebBrowser1StatusTextChang e(Sender: TObject;
const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;

procedure Tbrowser.WebBrowser1ProgressChange( Sender: TObject; Progress,
ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;

end.




вот я искал авторизацию:(но это на другой сайт и я пытался сделать выдает ошибку)


procedure TForm1.Button1Click(Sender: TObject);
var
Ts:TStringList;
s:string;
i:integer;
begin
Ts:=TStringList.Create;
try
Ts.add('vb_login_username=Test35');
Ts.Add('vb_login_password=123456789 ');
Ts.Add('s=');
Ts.Add('securitytoken=guest');
Ts.Add('do=login');
Ts.Add('vb_login_md5password=');
Ts.Add('vb_login_md5password_utf=') ;
s:=UTF8Encode(http.Post('http://doska.mogilev.by/login.php?do=login',ts));
i:= Pos('Test35',s);
If i > 0 then
begin
ShowMessage('TRUE');
end;
finally
Ts.Free;
end;
end;

Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.