[[oscarac]]

Lo Solucione de esta manera, por si a alguien le sucede lo mismo

Código Delphi [-]
Procedure _Cuadrar (Alias :TDataSource);
Var tn_hb, tn_db, tu_hb, tu_db : Double;
z_recno : TBookmark;
Data : TDataSet;
Begin
  Data := Alias.DataSet;
  tn_db := 0;
  tn_hb := 0;
  tu_db := 0;
  tu_hb := 0;

  z_recno := Data.GetBookmark;
  Data.First;
  while not Data.eof do
  begin
    if _En (Data.FieldByName('dh').AsString, '1Dd+') then
    begin
      tn_db := tn_db +  Data.FieldByName('n_imp').AsFloat;
      tu_db := tu_db +  Data.FieldByName('n_imp').AsFloat;
    end
    Else
    begin
      tn_hb := tn_hb +  Data.FieldByName('n_imp').AsFloat;
      tu_hb := tu_hb +  Data.FieldByName('n_imp').AsFloat;
    End;
    Data.Next;
  End;