[xkor]

Amorality, скорее такой:

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.