обработка 1 кнопки
Код:
idtcpclient1.Host:='127.0.0.1';
idtcpclient1.Port:=6234;
try
idtcpclient1.Connect;
except
showmessage('сервер не запущен или не найден по этому адресу');
end;
вторая кнопка
Код:
idtcpserver1.DefaultPort:=6234;
idtcpserver1.Active:=true;
if idtcpserver.active then
showmessage('> Server UP');
сначала жмакаем вторую кнопку, потом первую, месаджи можно убрать, это так, для красоты, сообщения лучше в лог складывать но мне лень писать. возможно ты ранее делал что-то неправильно или 4001 порт был занят какой-нибудь другой программой