saw

var
  Form1: TForm1;
  sv: tserversocket;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
sv:=tserversocket.Create(self);
sv.Port:=33666;
sv.OnClientRead:=cread;
sv.active:=true;
end;


procedure tform1.cread(Sender: TObject; Socket: TCustomWinSocket);
var buf:array[0..2048] of char;
begin
memo1.lines.Add('RT['+inttostr(socket.ReceiveLength)+']: '+socket.ReceiveText);
end;

end.