[__marcsc]

Suponiendo que las tablas tengan la misma estructura, y obviando algunas validaciones que dependerán mucho de lo que tengas que hacer...

Código Delphi [-]
procedure CopiarTabla(Origen, Destino: TDataSet);
var
  i: Integer;
begin
  Origen.Open;
  Destino.Open;
  Origen.First;
  while not Origen.Eof do
  begin
     Destino.Insert;
     for i:= 0 to Origen.Fields.Count -1 do
        Destino.Fields[i].Value:= Origen.Fields[i].Value;
     Destino.Post;
     Origen.Next;
  end;
end;