[JackRu]

Вот написал кнопочку, которая будет сканировать порты ... Правда при проверке, пишит что порты закрыты... Толи я что-то намудрил, толи на самом деле порты закрыты ...

Код:

procedure TForm3.Button3Click(Sender: TObject);
var
i:Integer;
ip:String;
begin
ip:='127.0.0.1';
for i:=79 to 81 do
begin
TcpClient1.RemotePort:=IntToStr(i);
TcpClient1.Open;
  if TcpClient1.Connected then Memo1.Lines.Add(ip+' '+IntToStr(i)+' open')
  else Memo1.Lines.Add(ip+' '+IntToStr(i)+' close')
  end;
TcpClient1.Close;
end;

Admin: Для оформления кода пользуемся тегом CODE.