{$mode objfpc}{$H+}
uses
 nxNetwork, SysUtils, Classes, Crt, Unix, Process;

const Key = '8)y:L"*f"_/!rx<';

type
 TTest = class
 private
  procedure ServerEvent(sender: TConnection; event: TConnectionEvent; ID: integer);
  procedure ServerData(sender: TConnection; data: {$IFDEF fpc}PByte
      {$ELSE}PByteArray{$ENDIF}; size,ID: integer);
  procedure SendString(CId:Integer; S:String);
 function ShellExec(Command:String; Param:String):AnsiString;
 public
  server:TServer;
 end;

var
 H: TTest;

procedure TTest.ServerData(sender: TConnection; data:
  {$IFDEF fpc}PByte{$ELSE}PByteArray{$ENDIF}; size,ID: integer);

var s: string;
begin
  if server=nil then exit;
  setlength(s,size);
  move(data[0],s[1],size);
  TTCPServer(server).SendString(-1,'blqblq'); // Ете тук трябва да върне на клиента стринга ама нъцки!
end;

procedure TTest.ServerEvent(sender: TConnection; event: TConnectionEvent; ID: integer);
begin
  if server=nil then exit;
  if event=ceError then
    WriteLn(format('<#%d Error(%d): %s>',
      [ID,server.LastError,server.LastErrorMsg]))
  else
    WriteLn(format('<#%d: %s>',
      [ID,server.EventToStr(event)]));
end;

begin
H:=TTest.Create;
H.server:=TTCPServer.CreateTCPServer('5400');
H.server.Mask:=Key;
H.server.onEvent:[email protected];
H.server.onData:[email protected];
H.server.Connect;
repeat until keypressed;
end.