procedure RecivedPacket(Socket: TCustomWinSocket);
var
 iLen: Integer;
 Bfr: Pointer;
 a: integer;
 tmp: PChar;
begin
 iLen := Socket.ReceiveLength - 1;
 if (iLen > 0) then
 begin
   GetMem(Bfr, iLen);
   Socket.ReceiveBuf(Bfr^, iLen);
   packet := Bfr;

   for a := 0 to iLen do//Length(packet) do
       Form1.Memo2.Text := Form1.Memo2.Text + IntToHex(packet[a], 2) + ' ';

   Form1.ToServer.Socket.SendBuf(Bfr, iLen+1);
   FreeMem(Bfr);
 end;
end;

procedure TForm1.ToClientClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
begin
RecivedPacket(Socket);
end;