[SpectraL]

Почему i = 3 при Position = 1?

Код:

unit Unit1;

interface
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

  type
    TForm1 = class(TForm)
      TrackBar1: TTrackBar;
      Button1: TButton;
      procedure TrackBar1Change(Sender: TObject);
      procedure Button1Click(Sender: TObject);
    end;

  var
    Form1: TForm1;
    i: Byte;

implementation
  {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(i))
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  i := i + Form1.TrackBar1.Position
end;

end.