Prepisivanje podataka iz tabele u tabelu

Code:
INSERT INTO tabela2 SELECT * FROM tabela1

Code:

procedure TfrmMain.KopirajZapis(aFromCDS, aToCDS: TClientDataSet);
var
  I: Integer;
  cds: TClientDataSet;
begin

  cds := TClientDataSet.Create(nil);
  try
    cds.FieldDefs.Assign(aFromCDS.FieldDefs);
    cds.CreateDataSet;

    with cds do
    begin
      Open;
      Insert;
      for I:=0 to fieldcount-1 do
        if Fields[i].FieldKind = fkData then
          Fields[I].Assign(aFromCDS.FindField(Fields[I].FieldName));

    end;

    with aToCDS do
    begin
      Insert;
      for I:=0 to fieldcount-1 do
        if Fields[i].FieldKind = fkData then
           Fields[I].Assign(cds.FindField(Fields[I].FieldName));
    end;

    cds.Cancel;
  finally
    cds.Free;
  end;
end;