Что тут неправильно?

[DeEeMaN]

Вот хочу написать самый простой логин для игры Dark Orbit и вот что получается.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var list: tstringlist;
var s1,s2,s3,s4:string;
begin
list:=tstringlist.Create;
try
list.Add('loginForm_default_username='+Edit1.Text) ;
list.Add('loginForm_default_password='+Edit2.Text) ;
s1:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',list);
s2:=Copy(s1,Pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',s1),length(s1));
Delete(s2,Pos('&ref_pid',s2)-14,length(s2));
s3:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи](s2);
s4:=Copy(s3,Pos('cred',s3)+5,Length(s3));
Delete(s4,Pos('&amp',s4),Length(s4));
Edit4.Text:=s4;
finally
list.Free;
end;
end;

И вот что делфи показувает в ошибках:
[Error] Unit1.pas(54): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Обьясните что тут не так.

[doctor_flasher]

End'ы в конце поправь. (добавь еще один с точкой в конце. 'end.')

[DeEeMaN]

Спасибо большушее) я себе всю голову поломал)
тока вот что то теперь какой то крит про нттп выбивает и выделяет синим строку
s4:=Copy(s3,Pos('cred',s3)+5,Length(s3));

[Муха_]

data:tstringlist;

data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));

[gum_classis]

data:tstringlist;

data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));
data.Add('loginForm_default_login_submit=Вход');