TcpClient1->RemoteHost=Edit1->Text; //значение сканируемого порта TcpClient1->RemotePort=Edit2->Text;//берем значение порта
TcpClient1->Active=true;//устанавливаем в компоненте TcpClient1 свойство Active в значение true т.е. разрешаем конектится
if (TcpClient1->Connected)//если конект прошол удачно
{
Memo1->Lines->Add(TcpClient1->RemotePort + " порт открыт");//то порт открыт
}
else//а ели конекта не было
{
Memo1->Lines->Add(TcpClient1->RemotePort + " порт закрыт");//то порт закрыт
}