anchor.diff:      MaxValue := 255;
       Value := 255;
       FontDesc := '#Edit1';
  +    OnChange := @RGBChanged;
       OnExit := @RGBChanged;
     end;
   
  
positive.code:     procedure   UpdateRGBComponents;
      procedure   ColorChanged(Sender: TObject);
      procedure   RGBChanged(Sender: TObject);
      procedure   ConvertToInt(Value: string);
      procedure   eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
      procedure   eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
  
negative.code:     MaxValue := 255;
      Value := 255;
      FontDesc := '#Edit1';
      OnChange := @RGBChanged;
      OnExit := @RGBChanged;
    end;
  
  