procedure TForml.ButtonlClick(Sender: TObject);
var
i:Integer;
ipstr:String;
begin
ipstr:='127.0.0.1';
TcpClientl.RemotePort:=IntToStr(6112);
//Пытаемся открыть
TcpClientl.Open;
//Если удалось, то сообщаем об этом
if TcpClientl.Connected then
ShowMessage(IntToStr(6112)+' открыт');
//Закрываем порт
TcpClientl.Close;
end;