anchor.diff:    with lblHex do
     begin
       Name := 'lblHex';
  -    SetPosition(380, 316, 120, 16);
  +    SetPosition(375, 320, 120, 16);
       FontDesc := '#Label2';
       Hint := '';
       Text := 'Hex = ';
  +  end;
  +
  +  eHex := TfpgEdit.Create(self);
  +  with eHex do
  +  begin
  +    Name := 'E_Hexa';
  +    SetPosition(420, 316, 65, 26);
  +    FontDesc := '#Label2';
  +    Hint := '';
  +    Text := '';
  +    MaxLength:= 7;
  +    OnKeyChar:= @eHexKeyChar;
  +    OnKeyPress:= @eHexKeyPress;
  +    OnMouseExit := @eHexMouseExit;
     end;
   
     Label7 := TfpgLabel.Create(self);
  
positive.code:     procedure   UpdateRGBComponents;
      procedure   ColorChanged(Sender: TObject);
      procedure   RGBChanged(Sender: TObject);
    public
      constructor Create(AOwner: TComponent); override;
      procedure   AfterCreate; override;
  
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
  