Bloquear Usuarios Oracle Desde Delphi

[rrosariom]

Buenos Día a todos,

Tengo que hacer una aplicación para bloquear y desbloquear usuarios en una base de datos Oracle desde delphi.

Tengo el siguiente código:

var xbusca:string;
begin
case RadioGroup2.ItemIndex of 0:
begin
xbusca:=inputbox('Introduzca el nombre de usuario','Introduzca el Nombre de Usuario','');
if xbusca='' then exit;
form1.ADOQuery1.SQL.Clear;
FORM1.ADOQuery1.Close;
adoquery1.SQL.Add('alter user ' + xbusca + ' account lock');
ADOQuery1.Open;
if adoquery1.recordcount = 0 then
showmessage('El usuario consultado no existe o está mal escrito');
end
end

El proceso me compila bien, pero cuando entro el usuario a bloquear me presenta el siguiente error:

ADoquery1: commandtext does not return a result set

Por favor necesito de ayuda...