MessageDlg(‘Choose a button:‘, System.UITypes.TMsgDlgType.mtInformation,    [      System.UITypes.TMsgDlgBtn.mbYes,      System.UITypes.TMsgDlgBtn.mbNo,      System.UITypes.TMsgDlgBtn.mbCancel    ], 0,    procedure(const AResult: TModalResult)    begin      if AResult = mrYES then         ShowMessage(‘You chose Yes‘) else      if AResult = mrNo then         ShowMessage(‘You chose No‘) else      if AResult = mrCancel then         ShowMessage(‘You chose Cancel‘);    end);