Delphi 7 - Как узнать открытые порты?

Всем привет, возможно кто-то сталкивался с задачей, как посмотреть открытые порты?

Допустим я запускаю свою программу, а она после сканирования показывает открытые порты
(аналогично сайту: http://www.windowsfaq.ru/content/view/451/82/)

Я пробовал использовать сканер портов:

Code:

begin
  ip:='127.0.0.1';
  if not InputQuery('Attention','Enter IP-address',ip) then exit;
  for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do 
  begin
    TcpClient1.RemotePort:=IntToStr(i);ïîðò
    TcpClient1.Open;
    if TcpClient1.Connected then Memo1.Lines.Add(IntToStr(i)+' open');
    TcpClient1.Close;
  end;
end;

Но он не отображает ничего...

 

Mr.Crazy я привёл этот код в первом посте Он не помогает...

 

Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if SThread=nil
 then
  begin
   SThread:=TMyThread.Create(false);
   SpeedButton1.Caption:='Стоп';
  end
 else
  begin
   SThread.Terminate;
   SThread.WaitFor;
   SThread:=nil;
   SpeedButton1.Caption:='Запуск';
  end;
end;

http://delphicoder.ru/sources/source4.rar посмотри этот.

 

Спасибо за помощь Вроде пашет!

P.S. Плюсик поставил