TServerSoket接收包的问题

[zpselect]

遇到一个很奇怪的问题，现在客户端是多台指纹机，每一次验征指纹的信息，Server1ClientRead事件
并没有触发，发而指纹机的心跳包信息却收到了(乱码信息)，请问怎么解决这个问题？非常急啊！
如果哪位有多线程的实例的话，也可以指点一下！

procedure TForm1.Server1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
re: pchar;
sbuf: string;
relong: integer;
begin
re := nil;
while socket.ReceiveLength > 0 do
begin
re := AllocMem(socket.receivelength); //申请内存
try
relong := socket.ReceiveLength;
Socket.ReceiveBuf(re^, Socket.receivelength);
sBuf := strpas(re);
Setlength(sbuf, relong);
finally
freemem(re);
end;
Memo1.Lines.Add('来自于客户端【' + Socket.RemoteAddress + '】的信息为【' + sbuf + '】');
end;
end;

[zpselect]

我现在用TServerSoket做服务器，接收各Client发过来的消息，现在就是遇到一个情况，当多个Client同时发消息给Server时，就会出现，多个消息包在Server接收数据时，会被合并成一个消息包，请问怎样处理？

[bdmh]

那得看你怎么处理的接收了，发多少收多少

[lovesf]

UDPServer?
加个序号以确认收到？

[zpselect]

听说在服务端用线程可以搞定，请问怎么写？

[donjin99]

TServerSocket的ServerType设置成stNonBlock在OnGetThread可以创建线程，具体可以看看罗小平的delphi精要里有个实例

[zpselect]

好的，谢谢。