ventana para permisos

[microbiano]

resulta que tengo que implementar una ventana para verificar el usurio, contraseña y los permisos para hacer cierta funcion ejemplo, eliminar,insertar,modificar, esto en algunas ventanas, pues bien ya tengo el diseño de la venta pero como hago para no escribir en todas las que lo encesite el cigo ,

estaba pensando en una funcion en el DataModule
mas o menos asi.

Código Delphi [-]
function valida_usuario(wnombreusuariovalida,wcontrasenavalida:string): string;
begin
  //funcion
end;

el problema es que no se como implementarla completamente alguna sugerencia.

de antemano muchas gracias a todos