procedure TMAINFORM.user_sysmenu(var msg:Twmmenuselect);
begin
if msg.IDItem=9 then n19.OnClick([color=FF0000]nil[/color]) else [color=FF0000]inherited[/color];
end;