ventana para permisos

[[duilioisola]]

Puedes tener una ventana con los edits correspondientes a user y password y dos botones, Ok y Cancelar
La función llamaría a la ventana con un ShowModal
Al botón Ok le asignas el ModalResult mrOk
Al botón Cancelar le asignas el ModalResult mrCancel

Código Delphi [-]
function DataModule.UsuarioValido : boolean
begin
  if (FMPideUsuarioYContrasena.ShowModal = mrOK) then
  begin
     {Salio de la ventana presionando el Botno OK}
     Result := ValidaUsuario(FMPideUsuarioYContrasena.EdUsuario.Text,FMPideUsuarioYContrasena.EdPassword.Text);
  end
  else
     {Salio de la ventana presionando el Botno Cancelar}
      Result := False;
end;

Nota: Mira el help de ShowModal y el ejemplo que trae.