class procedure ShowModal(const ACurForm: TForm; const Text: string; const OnYesClick: TProc = 0; const OnNoClick: TProc = 0)