IdTCPClient发送记录类型数据到IDTCPServer，Server端如何还原该记录?
客户端程序用idTCPclient，发送一个结构体数据给服务器端，请问服务端如何写接收的代码？能把这个结构体拆分出来吗?

客户端代码:
type
Tcommad = record
commandid:integer;
command :string;
date1:string;
date2:string;
end

procedure TForm1.button1click(sender:Tobject);
var clientcommand:Tcommand;
begin
clientcommand.id:=1001;
clientcommand.command:='delete'
date1:='a';
date2:='b';
idtcpclient1.connect();
idTcpclient.WriteBuffer(clientcommand,sizeof(clientcommand),True);
idTcpclient.Disconnect;
end;

服务端:
procedure TForm1.idTcpServer1Execute(AThread:TidPeerThread);
var
servercommand:Tcommand;
begin
Athread.Connection.readBuffer(servercommand,sizeof(servercommand));
这里如何写呢?能够分解出结构体
end;


[解决办法]
procedure TForm1.idTcpServer1Execute(AThread:TidPeerThread);
var
servercommand:Tcommand;
begin
Athread.Connection.readBuffer(servercommand,sizeof(servercommand));
这里如何写呢?能够分解出结构体
end;
===============================================================================
servercommand本身就是结构体Tcommand啊，直接访问成员就行了，还要怎么分解？