[jafl1965]

Será algo así?

Var
UnQuery : Tquery ;
begin
UnQuery := TQuery.Create(Form1) ;
try
with UnQuery do
begin
close ;
SQL.Add('Mi sentencia') ;
Open o ExecSQL ;
end;
finally
UnQuery.free ;
end;
end ;