方法一：

begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Recordset:=ADOQuery1.Recordset.Clone(Integer(ltOptimistic)); 
DataSource1.DataSet:=ADOQuery;
end;

方法二：

begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Recordset:=ADOQuery1.Recordset._xClone;
DataSource1.DataSet:=ADOQuery;
end;

方法三：
begin
ADOQuery:=TADOQuery.Create(Application);
ADOQuery.Clone(ADOQuery1,ltOptimistic);
DataSource1.DataSet:=ADOQuery;
end;