Intercepted title bar button events

Rewrite procedure wmsyscommand (VAR message: twmsyscommand); message wm_syscommand;
Message processing functions.

Twmsyscommand is defined as follows:

Twmsyscommand = packed record
MSG: Cardinal;
Case when type: longint
SC _hotkey :(
Activatewnd: hwnd );
SC _keymenu :(
Key: Word );
SC _close, SC _hscroll, SC _maximize, SC _minimize, SC _mousemenu, SC _move,
SC _nextwindow, SC _prevwindow, SC _restore, SC _screensave, SC _size,
SC _tasklist, SC _vscroll :(
Xpos: smallint;
Ypos: smallint;
Result: longint );
End;

Example:
Procedure tbrxmainform. wmsyscommand (VAR message: twmsyscommand );
Begin
If (message. Duplicate type = SC _close)
Or (message. Duplicate type = SC _minimize)
Or (message. Specify type = SC _mousemenu)
Or (message. Expose type = SC _nextwindow)
Or (message. Repeated type = SC _prevwindow) then
Begin
Inherited;
End;
...
End;

Intercepted title bar button events