QuerySource.SQL.Text:='Select * From A';
QueryDestination.SQL.Text:='Delete From A;
QueryDestination.ExecSQL;
QueryDestination.SQL.Text:='Select * From A’;
QuerySource.Open;
QueryDestination.Open;
While NOT QuerySource.Eof do
Beign
//将Source的更新到Destination
end;