Ну вот простейший пример:

...Form1.Create...
begin
ServerSocket1.port:=...;
ServerSocket1.Action:=true;
end;
...ServerSocket1.ClientRead...
begin
if serverSocket1.Socket.ReciveText='...' then
...;

Что в простейшем сервере нетак?????

И слиент к серваку тоже простейший:
...form1.Button1.click...
begin
ClientSocket1.host...
clientSocket1.addres...
ClientSocket1.Action:=treu;
end;

...form1.Button2.click...
ClisentSocket1.Socket.SandText:='...';

и что тут нетак???