TcpClient1->RemotePort=Edit2->Text;//берем значение порта

TcpClient1->Active=true;//устанавливаем в компоненте TcpClient1 свойство Active в значение true т.е. разрешаем конектится

if (TcpClient1->Connected)//если конект прошол удачно
{
Memo1->Lines->Add(TcpClient1->RemotePort + " порт открыт");//то порт открыт
}
else//а ели конекта не было
{
Memo1->Lines->Add(TcpClient1->RemotePort + " порт закрыт");//то порт закрыт
}