procedure init; begin NoFreeOnClientDisconnect:=true; end; begin if FromClient and (ConnectName='Amorality') and (pck=HStr('1b 04 00 00 00')) then begin DisconnectClient; end; end.