unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ScktComp, StdCtrls;

type
   TForm1 = class(TForm)
     Button1: TButton;
     Edit1: TEdit;
     ClientSocket1: TClientSocket;
     Button2: TButton;
     Button3: TButton;
     procedure Button2Click(Sender: TObject);
     procedure ClientSocket1Connecting(Sender: TObject;
       Socket: TCustomWinSocket);
     procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);

     
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
clientSocket1.Host:='его айпи';
ClientSocket1.Open;
ClientSocket1.Socket.SendText('mes');

end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
   Socket: TCustomWinSocket);
begin
showmessage('CONNECT');
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
   Socket: TCustomWinSocket);
begin
showmessage('connecting');
end;

end.

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, FileCtrl, ScktComp;

type
   Tfrmsrv = class(TForm)
     SrvMain: TServerSocket;
     procedure SrvMainClientRead(Sender: TObject; Socket: TCustomWinSocket);
     procedure FormCreate(Sender: TObject);
     procedure SrvMainClientConnect(Sender: TObject; Socket: TCustomWinSocket);

    
       
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   frmsrv: Tfrmsrv;

implementation

{$R *.dfm}

procedure Tfrmsrv.FormCreate(Sender: TObject);
begin
srvmain.open;
srvmain.Active:=true;
end;

procedure Tfrmsrv.SrvMainClientConnect(Sender: TObject;
   Socket: TCustomWinSocket);
begin
showmessage('CONNECTED1111111!');
end;

procedure Tfrmsrv.SrvMainClientRead(Sender: TObject; Socket: TCustomWinSocket);
var comd:string;

begin
comd:=SrvMain.Socket.Connections[0].Receivetext;

if comd='mes' then
begin
showmessage('Received!!');

end;
    
end;

end.

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;