TDsnKeyPressEvent = procedure (Sender: IDesigner; var Key: Char) of object;