Bloquear Usuarios Oracle Desde Delphi

[cloayza]

Y el uso de las etiquetas???.

Código Delphi [-]
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

...MODERADOOOOOOOOOOOOOOOOOOOR..