[SpectraL]

Вы абсолютно не правы. FPosition по прежнему = 3, если добавить "FPosition+":

Код:

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