TCloseUpEvent = procedure (Sender: TObject; var Accept: Boolean) of object;