怎样把sql语句的执行结果放到变量里?

Question

怎样把sql语句的执行结果放到变量里?
    查询语句为
       with sql do
       begin
        clear;
        add('select flag1  from kch ');
        add('where kch=:kc');
       end;
       parameters.ParamByName('kc').Value :=kch;
       execsql
       我想把这个flag1的值放到一个布尔类型的flag变量中,不能使用open语句!

Answer 1

with sql do 
  close;
  clear;
  add('select flag1  from kch ');
  add('where kch=:kc');
  prameters.ParamByName('kc').Value :=kch;
  open
  flag1:=sql.files[0].asboolean
end; //with

Answer 2

with sql do
       begin
        clear;
        add('select flag1  from kch ');
        add('where kch=:kc');
       end;
       parameters.ParamByName('kc').Value :=kch;
       open;
       flag:=sql.fieldbyname('flag1').asboolean