procedure KeyPress(var Key: Char); override;