mensajes personalizados en español en Firemonkey

[juank1971]

El problema que sigo viendo un poco feo es que tengo que poner esta función completa para hacer la llamada en cada unit no logro encapsularla en un solo procedimiento o función que me devuelva el ModalResult .


porque como ShowModal no devuelve nada no se como obtener ese resultado.

Código Delphi [-]
var
  dlg: TMmensajes;r:string;
begin
   dlg := TMmensajes.Create(LayoutMenu, nil,'¿ Salir ?', '¿ Seguro que quieres salir de la aplicación?','CANCELAR','SALIR',true);
   dlg.ShowModal(procedure(ModalResult: TModalResult)
    begin
      case ModalResult of
        mrOk:{$IF DEFINED(IOS) or DEFINED (ANDROID)}
              MainActivity.finish;
             {$ENDIF}
        mrCancel: lbMenu.ClearSelection;
      end;

    end ) ;

end;