type MyClass = class(TCustomControl) ... published property OnKeyDown; property OnKeyPress; property OnKeyUp; end;