Copiar informacion de un Tdataset a otro Tdataset

[joelphi]

Primeramente Hola a todos los de foro..

Tengo un problemita creo yo.. sucede que estoy trabajando en una aplicacion en delphi en donde todo lo manejo por codigo..

El problema es el siguiente: quisiera saber como copiar los campos y la informacion que contienen de un Tdataset a otro Tdataset??..

Trabajo en Delphi 2007..

Agradeceria mucho a quien me ayudara en esto ya que me urge un poco.


Tengo este metodo.. pero no me permite hacer el Open .. me manda un error de Abstract Error.

Código Delphi [-]
Function TFrm_Datos.Clonar(Origen:TDataSet):TDataset;
var Campo :string;
i :integer;
Destino : TDataset;
begin
Destino := TDataSet.Create(Nil);
Destino.Open;   //--<--- aqui manda error (Abstract Error)
with Origen do
begin
open;
    while not EOF do
     begin
      Destino.Append;
      for i := 0 to FieldCount-1 do
      begin
        Campo := Origen.Fields[i].FieldName;
        Destino[Campo] := Origen[Campo];
      end;
     Destino.Post;
     Next;
 end;
Close;
end;
Destino.Close;
Result := Destino;
end;

Gracias.. y Saludos¡¡