1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

  // Server
    FService := TSDataComServer.Create;
    FService.ServiceName := 'Test';
    FService.ServicePort := 10;
    FService.Active := TRUE;

    FService.OnRead := _ServiceRead;

  procedure TForm1._ServiceRead(Sender:TObject;AConn:Integer;const Data;Count:Integer);
  var Bool : Boolean;
  begin
    // ...
    Bool := Boolean(Data);
    Bool := not Bool;
    FService.SendData(AConn,Bool,SizeOf(Bool));
   end;

// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

  // Client
    FClient := TSDataComClient.Create;
    FClient.OnRead := ConnectionRead;
    FClient.ServiceName := 'Test';
    FClient.ServicePort := 10;
    FClient.Active := TRUE;

  procedure TForm1.ConnectionRead(Sender:TObject;const Data;Count : Integer);
  Begin
    FClient.SendData(FALSE,SizeOf(Boolean));
  end;