Supongo que no es un programa de red, sino uno de escritorio. En cualquier caso te recomiendo que crees un objeto "Usuario" que te permita gestionar mejor sus estados. La clase podría ser más o menos así (de memoria):
Código Delphi
[-]
TUsuario = CLASS (TObject)
PRIVATE
fIdentificado: BOOLEAN;
PUBLIC
FUNCTION Identificar (Nombre, Clave: STRING): BOOLEAN;
PROCEDURE CierraSesion;
PROPERTY Identificado: BOOLEAN READ fIdentificado;
END;
Puedes añadir métodos y propiedades al gusto, por ejemplo para obtener el nombre del usuario, el nivel de seguridad, permisos de acceso, etc.
La implementación de "CierraSesion" es sencilla, pero la de "Identificar" puede ser más complicada. Un problema que veo a tu código es que parece que guardas la clave tal cual, sin ningún tipo de protección. Esto puede ser un problema muy, muy grave, porque si alguien consigue acceso a la base de datos puede comprometer mucha información. Te recomiendo que leas
este artículo y que sigas sus enlaces.
Al final, Identificar sería más o menos así (de nuevo de memoria):
Código Delphi
[-]
FUNCTION TUsuario.Identifica (Nombre, Clave: STRING): BOOLEAN;
VAR
Registro: ...;
BEGIN
Identifica := FALSE;
Registro := AdoConnection.GetTable ('usuarios');
TRY
Registro.Parameters.ParamByName('nombre').Value:= Nombre;
Registro.Active:= True;
IF Registro.RecordCount = 1 THEN
Identifica := (ObtieneHash (Nombre, Clave) = Registro.Values ('clave').asString);
FINALLY
Registro.Free;
END;
END;
"ObtieneHash" sería la función que devuelve el hash, tal como se explica en los artículos enlazados.