anchor.diff:      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;
  +      var Consumed: boolean);
  +    procedure   eHexMouseExit(Sender: TObject);
     public
       constructor Create(AOwner: TComponent); override;
       procedure   AfterCreate; override;
  
positive.code:   c := RGBTripleTofpgColor(rgb);
    ColorWheel1.SetSelectedColor(c);  // This will trigger ColorWheel and ValueBar OnChange event
    FViaRGB := False;
    lblHex.Text:= 'Hex = '+ Hexa(rgb.Red,rgb.Green,rgb.Blue);
  end;
  
  constructor TMainForm.Create(AOwner: TComponent);
  
negative.code: implementation
  
  {@VFD_NEWFORM_IMPL}
  
  procedure TMainForm.ConvertToInt(Value: string);
  var
    iRed, iGreen, iBlue: integer;
    i, iTemp : integer;
    HexVal: string;
  begin
    for i:= 2 to 7 do
    begin
      HexVal:= Copy(Value,i,1);
      case Uppercase(HexVal) of
        'F':
          iTemp:= 15;
        'E':
          iTemp:= 14;
        'D':
          iTemp:= 13;
        'C':
          iTemp:= 12;
        'B':
          iTemp:= 11;
        'A':
          iTemp:= 10
        else
          if (HexVal>= '0') and (HexVal<= '9') then
            iTemp:= StrToInt(HexVal);
      end;
      case i of
        2:
          iRed:= iTemp;
        3:
          iRed:= iRed * 16 +iTemp;
        4:
          iGreen:= iTemp;
        5:
          iGreen:= iGreen * 16 +iTemp;
        6:
          iBlue:= iTemp;
        7:
          iBlue:= iBlue * 16 +iTemp;
      end;
    end;
    edR.Value := iRed;
    edG.Value := iGreen;
    edB.Value := iBlue;
  end;
  
  function ConvertToHexa(Value: Integer): string;
  var
  