Abundando en lo dicho por Lepe, aquí va un ejemplo que lleva funcionado mucho tiempo. (esto está incluido en el evento BeforePrint.
Código Delphi
[-]
if DmVil.FactBase.Value < DmVil.FactSubtotal1.Value then
begin
lbSubtotal.enabled:=True;
lbDescuento.Enabled:=True;
lbBaseimp.Enabled:=True;
lbDescpor.Enabled:=True;
QrdbSubtotal1.Enabled:=True;
QrdbDescpor.Enabled:=True;
QrdbDescuento.Enabled:=True;
QrdbSubtotal2.Enabled:=True;
end;
Un Saludo.