anchor.diff:    with Label1 do
     begin
       Name := 'Label1';
  -    SetPosition(116, 284, 52, 18);
  +    SetPosition(108, 284, 64, 18);
       Alignment := taRightJustify;
       FontDesc := '#Label1';
       Hint := '';
  
positive.code:   with edV do
    begin
      Name := 'edV';
      SetPosition(172, 336, 56, 26);
      TabOrder := 10;
      Text := '';
      FontDesc := '#Edit1';
  
negative.code: procedure TMainForm.UpdateHSVComponents;
  begin
    edH.Text := IntToStr(ColorWheel1.Hue);
    edS.Text := FormatFloat('##0.0', ColorWheel1.Saturation * 100);
    edV.Text := FormatFloat('##0.0', ValueBar1.Value * 100);
    Bevel1.BackgroundColor := ValueBar1.SelectedColor;
  end;
  
  