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;  
           NoCloseServerAfterCLientDisconnect;
           NoCloseClientAfterServerDisconnect;
         pck:='';
         buf:=#$7E;
         SendToClientEx(name);
         LogOutOk:=true;
       end;
       #$A8: begin         
         NetPing:=pck;  
         pck:='';
       end;
     end;
   end;
end.