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
Result := ValidaUsuario(FMPideUsuarioYContrasena.EdUsuario.Text,FMPideUsuarioYContrasena.EdPassword.Text);
end
else
Result := False;
end;
Nota: Mira el help de ShowModal y el ejemplo que trae.