TDsnKeyDownEvent = procedure (Sender: IDesigner; var Key: Word; Shift: TShiftState) of object;