求教，求救，我要使客户端（多线程）发与我的判定后准确返回

[purc_5000]

我要使客户端（多线程）发与我的判定后准确返回
如：客户端发5个线程与我 101 1*1，102 2*1 ， 152 9*9 ，564 3*5 ， 234 2*9；
我服务端返回： 101 001，102 002 ， 152 081 ，564 015， 234 018；
如何实现其客户端所发内容 所收内容对应 如： 101 1*1 －－101 001；
注：客户端不在作任何判定
请求教如何修改服务端 请附源程序！！！ 150分

[purc_5000]

我源单线程序如下：请求教！！！谢谢！！
kk.h
public: // User declarations
bool IsServer;
String Server,pk,rpk,p2_1,p2_2,p1,p2;

//--------------------------------
kk.cpp
void __fastcall TChatForm::ServerSocketClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
pk=Socket->ReceiveText();
p1=reyl.SubString (1,4);
p2_1=reyl.SubString (5,1);
p2_2=reyl.SubString (7,1);
p2=IntToStr(p2_1.ToInt()*p2_2.ToInt()) ;
rpk=p1+p2;
if (IsServer){ServerSocket->Socket->Connections[0]->SendText(rpk);}
}

[purc_5000]

我源单线程序如下：请求教！！！谢谢！！
kk.h
public: // User declarations
bool IsServer;
String Server,pk,rpk,p2_1,p2_2,p1,p2;

//--------------------------------
kk.cpp
void __fastcall TChatForm::ServerSocketClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
pk=Socket->ReceiveText();
p1=reyl.SubString (1,4);
p2_1=reyl.SubString (5,1);
p2_2=reyl.SubString (7,1);
p2=IntToStr(p2_1.ToInt()*p2_2.ToInt()) ;
rpk=p1+p2;
if (IsServer){ServerSocket->Socket->Connections[0]->SendText(rpk);}
}

[hahaha2001]

那分来了

[purc_5000]

ok

[purc_5000]

OK