Foros Club Delphi - Ayuda con scannerport

hola a todos , ando queriendo hacer un scannerport en delphi pero no se como hacerlo andar bien , el codigo es el siguiente
Código:
unit scan;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ScktComp;



type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    ClientSocket1: TClientSocket;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ClientSocket1Connect(Sender: TObject;

      Socket: TCustomWinSocket);

    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;

      ErrorEvent: TErrorEvent; var ErrorCode: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);

begin

ShowMessage('Coded By Doddy H');

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Close;

end;



procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

Memo1.Clear;

Memo1.Lines.Add('[+] Scanning');

Memo1.Lines.Add('');

for i:= StrToInt(Edit2.Text) to StrToInt(Edit3.Text) do

begin

//Memo1.Lines.Add(IntToStr(i));

try

ClientSocket1.Active:=False;

ClientSocket1.Address:=Edit1.Text;

ClientSocket1.Port:=i;

ClientSocket1.Active:=True;

ClientSocket1.Open;

ClientSocket1.Close;

except

on E : Exception do {nothing!};

end;

end;

Memo1.Lines.Add('');

Memo1.Lines.Add('[+] Scan Finished');

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

end;



procedure TForm1.ClientSocket1Connect(Sender: TObject;

  Socket: TCustomWinSocket);

var

port:longint;

begin

Memo1.Lines.Add('Port ' + IntToStr(Clientsocket1.Socket.RemotePort) + ' is open');

Clientsocket1.close;

end;



procedure TForm1.ClientSocket1Error(Sender: TObject;

  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

  var ErrorCode: Integer);

begin

ErrorCode:=0;

end;



end.
Alguien puede ayudarme....