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;