Dialog dla kompilacjia dla Androida

if MessageDlg ('Do you want a double message?',
TMsgDlgType.mtConfirmation,
[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo],
0) = mrYes then

ShowMessage ('Hello');

procedure TfmMain.RegisterApp(Sender: TObject);
var
    vDialog: IFMXDialogServiceAsync;
begin
    if not  TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, vDialog) then
        Exit;
    vDialog.InputQueryAsync('Email',['Put your email address'],[''],
      procedure(const vMR: TModalResult; const AValues: array of string)
      begin
        if vMR <> mrOk then
          Exit;
        if AValues[0] <> '' then
        begin
            TdmRESTModul.Instance.ParamByName('email',AValues[0]);
            TdmRESTModul.Instance.Execute('registration');
        end;
      end
    );
end;