播放器进度条,该如何解决

播放器进度条
有人能知道这段代码大概是干什么的么?
这是播放器里面的一段代码.
我只能看明白大概是播放进度的,但是TrackBar_play.Position   *   1000和Mediaplayer1.Position   div   1000这2句我看不懂.
成都-风(25156647)   10:12:44
还望高手指教一下
procedure   TFormMain.TrackBar_playChange(Sender:   TObject);
begin
    if   (TrackBar_play.Position   <>   (FormFileList.Mediaplayer1.Position   div   1000))   then   PositionChange   :=   True
    else   PositionChange   :=   False;
    if   PositionChange   then
      with   FormFileList.Mediaplayer1   do
        begin
                  if   Mode   in   [mpOpen,   mpPlaying]   then
                  begin
                      pause;
                      Position   :=   TrackBar_play.Position   *   1000;
                      Play;
                    end
                  else   if   mode   in   [mpOpen,   mpPaused,   mpStopped]   then
                      begin
                            Position   :=     TrackBar_play.Position   *   1000;
                      end;
      end;
end;


------解决方案--------------------
TrackBar_play显示Mediaplayer1的播放进度，它们的比例为1:1000。当然改变TrackBar_play的位置的同时要同步到Mediaplayer1的位置。在改变Mediaplayer1播放位置的时候，假如正在播放就暂停Pause。