[scorpio818]

Сообщение от ratvier

Возможно на сервер посылается логаут...

Именно так и было. Вот рабочий вариант:

     if SupportPlus and (ConnectName = Support) then begin
         if not SupportFlag then begin
             ConnectID:=ConnectIDByName(Support);
             NoFreeOnClientDisconnect;
             NoFreeOnServerDisconnect;
             SendMsgEx('Режим Маклауда включен...',ConnectName);
             SupportFlag:=true;
         end;
         if FromClient and (pck[1] = Logout) then begin
             pck:=''; //не пропускать на сервер Logout от клиента
             buf:=LogOutOk;
             SendToClient; //сказать клиенту, что логаут разрешен
         end;
     end;