anchor.diff:      procedure   UpdateRGBComponents;
       procedure   ColorChanged(Sender: TObject);
       procedure   RGBChanged(Sender: TObject);
  +    procedure   RGBChanging;
       procedure   ConvertToInt(Value: string);
       procedure   eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
       procedure   eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
  
positive.code: end;
  
  procedure TMainForm.RGBChanged(Sender: TObject);
  var
    rgb: TRGBTriple;
    c: TfpgColor;
  
negative.code:   if Length(eHex.Text)= 7 then
    begin
      ConvertToInt(eHex.Text);
      RGBChanging;
    end;
   end;
  
  