Buenas Tarde,
Gracias por la ayuda...
pude solucionar el problema.
Anexo el código para ayudar a la comunidad:
var xbusca:string;
begin
xbusca:=inputbox('Introduzca el nombre de usuario a Desbloquear','Introduzca el Nombre de Usuario a Desbloquear','');
if xbusca='' then exit;
with AdoQuery1 do
begin
active:=false;
SQL.Clear;
SQL.Add('alter user ' + xbusca + ' account unlock');
ExecSQL;
end;
showmessage('Usuario Desloqueado');
end;
