delphi 用indy的tcpclient 和tcpserver问题

delphi 用indy的tcpclient 发送了两个结构，
idtcpclient1.WriteBuffer(login,sizeof(login),true);//发送登陆信息
IdTCPClient1.WriteBuffer(regist,sizeof(regist),true);//发送注册信息
我要在idtcpserver的OnExecute事件中怎么写才能分别处理两个请求的信息呢
我这样写的
procedure TForm2.IdTCPServer1Execute(AThread: TIdPeerThread);
var
 login:TLogin;
 regist:TRegister;
begin
athread.Connection.ReadBuffer(login,sizeof(login));//接收登陆请求
athread.Connection.ReadBuffer(regist,sizeof(regist));//接受注册请求。
。。（省略为处理login和regist的代码和回执给tcpclient的代码）
end；