procedure CloneTable(const OldTableName, NewTableName: string;
Connection: TADOConnection);
begin
with TADOQuery.Create(nil) do
try
Connection := Connection;
Close;
SQL.Text := 'SELECT * INTO ' + NewTableName + ' FROM '+ OldTableName;
ExecSQL
finally
Free
end
end;