delphi Socket收发疑惑

//发送
ServerSocket.Socket.Connections[i].SendBuf(D, SizeOf(D));
//接收
ClientSocket.Socket.ReceiveBuf(D, clntsckt.Socket.ReceiveLength);
//正常
现在我想添加一个发送和接收，下面的代码会传到D里面。
//有问题发送
SendBuf(B, SizeOf(B));
//有问题接收
ReceiveBuf(B, clntsckt.Socket.ReceiveLength);