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;