Source position: ovccmd.pas line 352
type TUserCommandEvent = procedure(
Sender: TObject;
Command: Word
) of object;