Delphi - cargar resultado de SQL en variable temporal!!

al efectuar una consulta en SQL necesito cargar el resultado en una variable temporal. Ej.
with adoquery1.sql do
begin
add "select cod_user from usuarios
addwhere cod_user =:codigo // variable externa tipo input
into:salida // variable tipo output
el resultado de esta consulta deberia quedar en la variable salida pero da el error function opcional no implementada, si algo

viejo esto te funcionaria de maravilla , si fuera un procedimiento almacenado !!!
pero si no quiere un procedimiento almacenado entonce agalo asi :
with Query do begin
close;
sql.clear //para limpiar consulta anterior
sql.add('select cod_user from usuarios ')
sql.Add('where cod_user = "'+Variable_abuscar+'"')
open
if isempty then
message(esta vacio)
else variable_resultante :=Query['cod_user '];
close;
end;

suerte !!!
ah saludo desde santo Domingo . R.D.