TDBEdit(Sender);

var
   FOJ :TDBEdit;
   QCBZ,QCBZ_,ShJ :Double;
begin
   FOJ.Font.Color := clBlack;
   QCBZ := StrToFloat(QCBZh.Field.Value);
   QCBZ_ := StrToFloat(QCBZh_.Field.Value);
   FOJ:=   TDBEdit(Sender);
   if  FOJ.Field.IsNull  then   Exit;
   ShJ :=  FOJ.Field.Value;
   if  ( ShJ  >= QCBZ) and (ShJ   <= QCBZ_) then
       FOJ.Font.Color := clBlack
   else
       FOJ.Font.Color := clRed;