Сканер портов

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Sockets, ComCtrls;

type
  TForm1 = class(TForm)
    TcpClient1: TTcpClient;
    host: TEdit;
    port2: TEdit;
    port1: TEdit;
    OpenPort: TMemo;
    Start: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ProgressBar: TProgressBar;
    procedure StartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TClThread = class(TThread)
    TcpClient1: TTcpClient;
    host:string;
    minPort,maxPort:string;
    procedure Execute; override;
    procedure LinesAdd;
  private
  public
  end;

var
  Form1: TForm1;
  skan:string;
  x,y:integer;
implementation

{$R *.dfm}

{ TClThread }

procedure TClThread.LinesAdd();  //добавляем порт в мемо
begin
   Form1.OpenPort.Lines.Add(IntToStr(x));
end;

procedure TClThread.Execute;
var
Client:TTcpClient;
begin
  inherited;
  Client:=TTcpClient.Create(nil);    //выделение памяти под переменную
 Client.RemoteHost:=host; //Установка адреса хоста

 x:=StrToInt(minPort);  //начальное и конечное значения портов
 y:=StrToInt(maxPort);
 //для красявости сделаем прогресбар
 Form1.ProgressBar.Min:=x;
 Form1.ProgressBar.Max:=y;

 while x<=y do                     //порбегаем по всем портам
 begin
 Client.RemotePort:=IntToStr(x);    //установка значения порта дла коннекта
 Client.Active:=true;

 if Client.Connect=true then     //если порт открыт то порт добавляется в мемо
 begin
 Synchronize ( LinesAdd );
 client.Disconnect;
 end
 else  client.Disconnect;

 Form1.ProgressBar.Position:=x;
 x:=x+1;

 end;
end;

procedure TForm1.StartClick(Sender: TObject);
var
trd:TClThread;
begin
if Start.Tag=0 then
begin
trd:=TClThread.Create(true);
start.Caption:='Stop';
host.Enabled:=false;
port1.Enabled:=false;
port2.Enabled:=false;

trd.host:=host.Text;
trd.minPort:=port1.Text;
trd.maxPort:=port2.Text;
start.Tag:=1;
trd.Resume;
end
else
 begin
 start.Caption:='Start';
host.Enabled:=true;
port1.Enabled:=true;
port2.Enabled:=true;
start.Tag:=0;
exit;
 end;

end;

end.