个异步查询操作请指点一下?

Question

需要一个按按钮可以终止查询操作如果把以下代码
   datamodule2.ADOConnection1.Connected:=true;
  datamodule2.ADODataSet1.Active :=false;
  datamodule2.ADODataSet1.CommandText :=sql;
  datamodule2.adodataset1.Active:=true;
  form1.DataSource1.dataset:=datamodule2.adodataset1 ;放到Synchronize()中;
速个表单是不可以操作的,就象同步查询一样,
如果只把
  form1.DataSource1.dataset:=datamodule2.adodataset1 ;放到Synchronize()中;
那么会报错误 CANVAS DOES NOT DRAWING?
操作最需要时间的应当是datamodule2.adodataset1.Active:=true;这条指令,怎么可以在这条指令指行时,我表单上的按钮可以停止查询呢?

Answer 1

用多线程进行操作
或用TTIMER