[[egostar]]

También puedes usar el componente TSession y asignar la contraseña que desees, por ejemplo, si es que quieres controlar accesos de diferentes usuarios.

Algo así:

Código Delphi [-]
Var
  Passw : String;

Procedure ALGO;
begin
   Passw := 'seguro'; //NOTA: No es recomendable hacer este tipo de asignación, pero como ejemplo vale.
end;
 
procedure TDataModule1.TUsuariosBeforeOpen(DataSet: TDataSet);
begin
  Session1.AddPassword(Passw);
end;
 
procedure TDataModule1.TUsuariosBeforeClose(DataSet: TDataSet);
begin
  Session1.RemovePassword(Passw);
end;

Salud OS.