[NumLock]

вот этот пример:

{ This demo illustrates a simple chat program using the Client and Server socket
components. With this demo you can send text between two computers. This
program must be running on both computers at the same time for a connection
to be made. Once connected you can exchange text by typing into the memo and
pressing the Enter key which will send the last line of text in the memo to
the other machine. }

-запускаешь первый chat.exe
-создаешь сервер, меню File-Listen
-запускаешь второй chat.exe
-подключаешься к серверу, меню File-Connect, localhost
-в обоих пишешь, отправить Enter
-работает через TServerSocket-TClientSocket