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