[[oscarac]]

buenos dias
tengo una rutina de suma de varios registros de un ClientDataSet

Código Delphi [-]
procedure TfrmIngresoComprobantesVarios.Sumar;
var _Position :TBookmark;
begin
 _position := CdsDetalle.GetBookmark;
  _TotalDebeMN := 0;
  _TotalHaberMN := 0;
  _TotalDebeME := 0;
  _TotalHaberME :=0;
  CdsDetalle.First;
  while Not CdsDetalle.Eof do
  begin
    if _en(CdsDetalleDh.AsString, '1DI+') then
    begin
      _TotalDebeMN := _TotalDebeMN + CdsDetallen_imp.AsFloat;
      _TotalDebeME := _TotalDebeME + CdsDetalleu_imp.AsFloat;
    end
    Else
    begin
      _TotalHaberMN := _TotalHaberMN + CdsDetallen_imp.AsFloat;
      _TotalHaberME := _TotalHaberME + CdsDetalleu_imp.AsFloat;
    end;
    CdsDetalle.Next;
  end;
  CdsDetalle.Bookmark := _Position;
end;

esto quiero llevarlo a una libreria para que pueda sumar los registros de diferentes ClientDataSet
como asigno dinamicamente el dataset a sumar?

me echan una mano?