Ayuda con scannerport

[JuanOrtega]

hola a todos , ando queriendo hacer un scannerport en delphi pero no se como hacerlo andar bien , el codigo es el siguiente

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....

[dec]

Hola,

Alguien puede ayudarme....

¿Qué problema encuentras?

[JuanOrtega]

el problema es que no reconoce que un puerto este realmente abierto , lo estoy probando con mi servidor ftp y http usando xampp