var :res:integer;
with qry do
begin
active := false;
sql.clear;
sql.add('select count(*) as val from tabla where...');
active := true;
res := FieldbyName('val').asInteger;
active := false;
end;
with qry do
begin
active := false;
sql.clear;
sql.add('Insert into ....');
ExeqSql;
end;