Comprobar contraseña

[The Cid James]

Lo solucione de la siguente forma para que encontrara el valor de "pass"

Código Delphi [-]
procedure Tflogin.BloginClick(Sender: TObject);
var
contraseña2, contraseña3: string;
begin
fmodulo.qcontraseña.Active:= true;
  if trim(ELcont.Text) = ''
    then
      ShowMessage('Por favor intruzca la contraseña de administracion')
   else
    contraseña2 := CalcHash2 (ELcont.Text, haMD5);
    if  fmodulo.qcontraseña.Locate('pass', contraseña2, [])
      then
        begin
          Self.Close;
          fmodulo.qempresa.Active := true;
          fmodulo.qempresa.Edit;
          fconfiguracion := Tfconfiguracion.Create(self);
          fconfiguracion.Parent := fPrincipal.TPprincipal;
          fconfiguracion.ManualDock(fPrincipal.TPprincipal);
          fconfiguracion.Align := alClient;
          fconfiguracion.Show;
          fmodulo.qcontraseña.Active := false;
        end
    else
      ShowMessage('Contraseña incorrecta por favor intentelo de nuevo');
      fmodulo.qcontraseña.Active := false;
end;