ServerSocket1.Port:=1234;

ClientSocket1.Port:=1234;

var
s:String;
begin
s:=Socket.Receivetext;
if s='blablabla' then
showmessage(s+'ble bla blo');

var
Form1:TForm;
i:integer;
...
...
...
Server(OnClientConnect)
I:=i+1;
Server(OnClientDisconnect)
I:=i-1;

var comd:string;     
      
   begin     
   comd:=SrvMain.Socket.Connections[i].Receivetext;     
      
   if comd='mes' then     
   begin     
   showmessage('Received!!');     
      
   end;     
          
   end;