Estimado Oscarac, si me lo permite, le presento esta otra opción que utilizo frecuentemente...
Opción 1:
Código Delphi
[-]
Procedure _Cuadrar (Data:TDataset);
Var tn_hb, tn_db, tu_hb, tu_db : Double;
z_recno : TBookmark;
Begin
....
End;
Opción 2
Código Delphi
[-]Procedure _Cuadrar (Data:TClientDataset);
Var tn_hb, tn_db, tu_hb, tu_db : Double;
z_recno : TBookmark;
Begin
....
End;
Saludos cordiales