Vlad&slav неочень понял вопрос но может так?:
1. Ляпаеш на форму TtcpServer.
2. Настраиваешь порт, хост и т.д. (а... и ещё Active := true)
3. Событие OnAccept возникнет когда что то придёт.

procedure TForm1.tcpServer1(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
//ClientSocket.Receiveln; это как раз то что пришло.
end;