if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    case ReadD(2) of //SocialID
      //социальное действие Yes для начала
      6: begin
            if ready then begin
             pck:='';
             NoFreeOnClientDisconnect;
             NoFreeOnServerDisconnect;
             //started:=true;
             //timer1.enabled:=true;
             buf:=#$7E; //LogOutOk
             SendToClientEx(Name);
            end;
      end;
    end;
  end;