procedure TfrmMyBrowser.TrackBar2Change(Sender: TObject); begin TrackBar2.Max := TrackLength; MediaPlayer1.Position := MediaPlayer.Position + 1; end;