{ 客户端响应并处理服务器端的动词 }
procedure ClientEchoForVerb(AVerb: TSocketVerb; DataBuf: TDataBuf; DL: Integer;
var SendBuf: TSendBuf; var SendSize: Integer;
AClientSocket: TClientSocket);
var
P: PSocketData;
DBuf: TDataBuf;
ResL, L: Integer;
EchoVerb: TSocketVerb;
begin
SendSize := 0;
P := AClientSocket.Socket.Data;
if (P <> nil) and (P^.OnLine) then showmessage(IntToStr(AVerb));
//执行到这里时,当AVerb表示“从服务器端发送到客户的第一个数据包时”,按F7会
//自动跳到ClientSocket1Read(..),再读一次,而不是紧接着往下执行。WHY????????
if (P <> nil) and (P^.OnLine) then case AVerb of
vsNone,
............