Copiar informacion de un Tdataset a otro Tdataset

[joelphi]

Utilizo una clase de coneccion y Objetos Como de FibPlus
-TpFIBDatabase
-TpFIBQuery
-TpFIBDataSet
-TpFIBTransaction

Código Delphi [-]
 
//Utilizo este metodo
function TConexion.Consultar(CodigoSQL: String): TDataSource;
begin
    With Dataset Do //--Dataset es tipo TpFIBDataset
    Begin
         Close;
         SQLs.SelectSQL.Clear;;
         SQLs.SelectSQL.Add(CodigoSQL);
         Prepare;
         Try
              Open;
         Except on E:Exception do
         Begin
              Raise;
              Exit;
         End;         
       End;
     End; 
    Result:= TDataSource.Create(Nil);
    Result.DataSet:=Dataset;
end;

* Son seis consltas a diferentes tablas.. Eso hace diferente las consultas..
*y para el vaciado es asi: Un ejemplo.

Código Delphi [-]
 
cxLookupComboBox1.Properties.ListSource:= Conexion.Consulta      "Select * From Tabla");     
     cxLookupComboBox1.Properties.KeyFieldNames:='Codigo';
     cxLookupComboBox1.Properties.ListFieldNames:='Nombre';

NOTA: Utilizo en patron singleton para apuntar a la misma memoria pero solo con la clase Conexion..

Espero y Me ayuden ya que llevo varios dias tratando de solucionar este problema..

Gracias¡¡