title: How to remove [DCC Error] : E2035 Not enough actual parameters
body: <p>I am a Delphi learner. I was looking for some codes to convert basic colours in Hue, Saturation and Value. I have got it in <a href="https://stackoverflow.com/questions/17743821/how-to-convert-hsb-to-rgb">this forum</a> and  I have implemented it like :</p>
  
  <pre><code>unit Unit1;
  
  interface
  
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math;
  
  type
    TForm1 = class(TForm)
      Button1: TButton;
      Label1: TLabel;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  
  procedure HSVToRGB(Const H, S, V: Real; Out R, G, B: Real);
  const
    SectionSize = 60/360;
  var
    F: real;
    P, Q, T: real;
    Section: real;
    SectionIndex: integer;
  begin
    if H &lt; 0 then
      begin
        R:= V;
        G:= R;
        B:= R;
      end
    else
      begin
        Section:= H/SectionSize;
        SectionIndex:= Floor(Section);
        F:= Section - SectionIndex;
        P:= V * ( 1 - S );
        Q:= V * ( 1 - S * F );
        T:= V * ( 1 - S * ( 1 - F ) );
        case SectionIndex of
          0:
            begin
              R:= V;
              G:= T;
              B:= P;
            end;
          1:
            begin
              R:= Q;
              G:= V;
              B:= P;
            end;
          2:
            begin
              R:= P;
              G:= V;
              B:= T;
            end;
          3:
            begin
              R:= P;
              G:= Q;
              B:= V;
            end;
          4:
            begin
              R:= T;
              G:= P;
              B:= V;
            end;
          else
            begin
              R:= V;
              G:= P;
              B:= Q;
            end;
        end;
      end;
  end;
  
  
  procedure RGBToHSV(Const R, G, B: Real; Out H, S, V: Real);
  var
    Range: real;
    RGB: array[0..2] of real;
    MinIndex, MaxIndex: integer;
  begin
    RGB[0]:= R;
    RGB[1]:= G;
    RGB[2]:= B;
  
    MinIndex:= 0;
    if G &lt; R then MinIndex:= 1;
    if B &lt; RGB[MinIndex] then MinIndex:= 2;
  
    MaxIndex:= 0;
    if G &gt; R then MaxIndex:= 1;
    if B &gt; RGB[MaxIndex] then MaxIndex:= 2;
  
    Range:= RGB[MaxIndex] - RGB[MinIndex];
  
    if Range = 0 then
      begin
        H:= -1;
        S:= 0;
        V:= R;
      end
      else
        begin
          case MaxIndex of
            0:
              begin
                H:= (G-B)/Range;
              end;
            1:
              begin
                H:= 2 + (B-R)/Range;
              end;
            2:
              begin
                H:= 4 + (R-G)/Range;
              end;
          end;
          S:= Range/RGB[MaxIndex];
          V:= RGB[MaxIndex];
          H:= H * (1/6);
          if H &lt; 0 then H:= 1 + H;
        end;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
    Hue, Saturation, Value: real;
    Red, Green, Blue: integer;
  begin
    Red := GetRValue(Label1.Font.Color);
    Green := GetGValue(Label1.Font.Color);
    Blue := GetBValue(Label1.Font.Color);
    Hue := RGBToHSV(GetRValue(Label1.Font.Color), GetGValue(Label1.Font.Color), GetBValue(Label1.Font.Color));
    Saturation := RGBToHSV(GetRValue(Label1.Font.Color), GetGValue(Label1.Font.Color), GetBValue(Label1.Font.Color));
    Value := RGBToHSV(GetRValue(Label1.Font.Color), GetGValue(Label1.Font.Color), GetBValue(Label1.Font.Color));
    ShowMessage (FloatToStr(Hue) +','+ FloatToStr(Saturation)+',' + FloatToStr(Value));
  end;
  
  end.
  </code></pre>
  
  <p>At the time of compilation Delphi is throwing 3 Error as<br>
  <strong>[DCC Error] Unit1.pas(150): E2035 Not enough actual parameters.</strong><br>
  on the lines below :    </p>
  
  <p><code>Hue := RGBToHSV(GetRValue(Label1.Font.Color), GetGValue(Label1.Font.Color), GetBValue(Label1.Font.Color));</code>    </p>
  
  <p><code>Saturation := RGBToHSV(GetRValue(Label1.Font.Color), GetGValue(Label1.Font.Color), GetBValue(Label1.Font.Color));</code>    </p>
  
  <p><code>Value := RGBToHSV(GetRValue(Label1.Font.Color), GetGValue(Label1.Font.Color), GetBValue(Label1.Font.Color));</code></p>
  
  <p><strong>How to remove the Errors?</strong></p>