if not RecvThread.Terminated then
begin
 while not RecvThread.Terminated do
 begin
 try
 RecvThread.Terminate;
 except
 end;
 sleep(100);
 Application.ProcessMessages;
 end;
end;
LstRbeg:=nil;
LstRend:=nil;

// Выход из проги
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caNone;
 if constat then
 Form1.Button1Click(Sender);
 Application.ProcessMessages;
 Application.Terminate;
 Halt(1);
end;

// Scaner
procedure TForm1.Button2Click(Sender: TObject);
begin
 Form2.WindowState := wsNormal;
 Form2.Visible := true;
 Form2.SetFocus;
end;

unit Unit2;

interface

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

type
 TForm2 = class(TForm)
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Edit4: TEdit;
 Edit5: TEdit;
 Edit6: TEdit;
 Button1: TButton;
 Memo1: TMemo;
 ProgressBar1: TProgressBar;
 ProgressBar2: TProgressBar;
 ClientSocket1: TClientSocket;
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
 procedure Button1Click(Sender: TObject);
 procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
 procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
 private
 { Private declarations }
 public
 { Public declarations }
end;

var
 Form2: TForm2;
 Rez11: Boolean = false;
 Bool: Boolean = false;

implementation

{$R *.DFM}

//Close Scaner
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 // если запущен, то прерываем процесс
 if Rez11 then
 begin
 Action := caNone;
 Form2.Button1Click(Sender);
 end;
end;

// Включить/отключить сканер
procedure TForm2.Button1Click(Sender: TObject);
var
 I, J, K: Integer;
 DopStr: string;
begin
 if Rez11 then
 begin
 // прервать сканирование
 if Application.MessageBox('Прервать сканирование?', 'Сканер', mb_YesNo + mb_IconQuestion) = idYes then
 begin
 Rez11 := false;
 Bool := false;
 end;
 end
 else
 begin
 // запуск сканера
 if StrToInt(Form2.Edit2.Text) < StrToInt(Form2.Edit1.Text) then
 begin
 Application.MessageBox('Неверно указан диапазон для портов','Сканер', mb_Ok + mb_IconStop);
 exit;
 end;

 if StrToInt(Form2.Edit5.Text) < StrToInt(Form2.Edit4.Text) then
 begin
 Application.MessageBox('Неверно указан диапазон IP-адресов','Сканер', mb_Ok + mb_IconStop);
 exit;
 end;

 Form2.Caption:='Идет сканирование...';
 Form2.Memo1.Lines.Clear;

 try
 DopStr := trim(Form2.Edit3.Text);
 Rez11 := true;
 Form2.Button1.Caption := 'Отмена';
 Form2.Memo1.Lines.Add('-------------' + #13 + #10 + '===========');

 // начальные значения для порта и адреса
 I := StrToInt(Form2.Edit1.Text);
 J := StrToInt(Form2.Edit4.Text);

 try
 Form2.ProgressBar1.Max := StrToInt(Form2.Edit2.Text) - StrToInt(Form2.Edit2.Text) + 2;
 Form2.ProgressBar1.Position := 1;
 Form2.ProgressBar2.Max := StrToInt(Form2.Edit5.Text) - StrToInt(Form2.Edit4.Text) + 2;
 Form2.ProgressBar2.Position := 1;

 // цикл по адресам
 while I <= StrToInt(Form2.Edit2.Text) do
 begin
 J := StrToInt(Form2.Edit4.Text);
 // цикл по портам
 while J <= StrToInt(Form2.Edit5.Text) do
 begin
 Application.ProcessMessages;
 if not Rez11 then
 break;
 Form2.ClientSocket1.Active := false;
 Form2.ClientSocket1.Port := I;
 Form2.ClientSocket1.Address := trim(DopStr) + '.' + trim(IntToStr(J));

 try
 // попытка соедениться
 Form2.ClientSocket1.Active := true;
 Application.ProcessMessages;

 // время ожидания
 Bool := true;
 K := round(StrToInt(Form2.Edit6.Text) * 1000 / 50);
 while Bool do
 begin
 Sleep(50);
 Application.ProcessMessages;
 dec(K);
 if K=0 then
 begin

 try
 Form2.ClientSocket1.Active:=false;
 except
 end;
 break;
 end;
 end;
 except
 end;

 Application.ProcessMessages;
 Form2.ProgressBar2.Position := Form2.ProgressBar2.Position + 1;
 inc(J);
 end;
 inc(I);
 Application.ProcessMessages;

 if not Rez11 then
 break;

 Form2.ProgressBar1.Position := Form2.ProgressBar1.Position + 1;
 end;
 Form2.ProgressBar2.Position := Form2.ProgressBar1.Position + 1;
 Form2.ProgressBar1.Position := Form2.ProgressBar1.Position + 1;
 except
 Application.MessageBox('Ошибка выполнения операции', 'Сканер', MB_Ok + mb_IconStop);
 end;
 Form2.Button1.Caption := 'Сканер';
 Form2.ProgressBar1.Position := 0;
 Form2.ProgressBar2.Position := 0;
 Form2.Caption := 'Сканер по адресам и портам';
 if Rez11 then
 begin
 Application.MessageBox('Процедура сканирования по адресам и портам закончена.', 'Сканер', mb_Ok + mb_IconAsterisk);
 Form2.Memo1.Lines.Add('-----------------'+#13+#10+'========== ВСЕ АДРЕСА И ПОРТЫ ОТСКАНИРОВАНЫ'+#13+#10+#13+#10);
 Rez11 := false;
 end
 else
 Form2.Memo1.Lines.Add('------------'+#13+#10+'============== ПРЕРВАНО НА порт-'+IntToStr(I)+', адрес-'+trim(DopStr)+'.'+IntToStr(J-1)+#13+#10+#13+#10);
 except
 Application.MessageBox('Ошибка инициализации процесса.','Сканер',mb_Ok+mb_IconStop);
 end;
 Form2.Caption:='Сканер по адресам и портам';
 end;
end;

// Есть ответ сервера
procedure TForm2.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
 // если соеденились вывести сообщение
 Form2.Memo1.Lines.Add('***' + #13 + #10 + 'Порт: ' + IntToStr(Form2.ClientSocket1.Port) + ' ' + 'Адрес: ' + Form2.ClientSocket1.Address + ' - ЕСТЬ ОТВЕТ' + #13 + #10);
 Application.ProcessMessages;
 // прервать время ожидания
 try
 Form2.ClientSocket1.Active := false;
 except
 end;
 Bool := false;
end;

// Ошибка при соединении
procedure TForm2.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 // прервать время ожидания если ошибка
 ErrorCode := 0;
 Bool := false;
end;

end.