[Помогите!] Что тут неправильно?

[DeEeMaN]

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    IdHTTP1: TIdHTTP;
    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:=idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',list);
     s2:=Copy(s1,Pos('http://'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',s1),length(s1));
     Delete(s2,Pos('&ref_pid',s2)-14,length(s2));
     s3:=idhttp1.Get(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=Вход');