const
name = 'НИК ВАШЕГО ЧАРА';

var
 NetPing: string;
 LogOutOk: boolean;
begin
 if (ConnectName=name) and FromServer then begin
 case pck[1] of
 #$D3: begin 
 if LogOutOk then begin
 buf:=NetPing;
 SendToServerEx(name);
 end;
 end;
 end;
 end;
 //****************************************************
 if (ConnectName=name) and FromClient then begin
 case pck[1] of
 #$09: begin
 NoFreeOnClientDisconnect;
 NoFreeOnServerDisconnect;
 pck:='';
 buf:=#$7E;
 SendToClientEx(name);
 LogOutOk:=true;
 end;
 #$A8: begin 
 NetPing:=pck; 
 pck:='';
 end;
 end;
 end;
end.