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