OnClick

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие TMediaPlayer OnClick";

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример видео-плеера";

// Панель воспроизведения
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Color=clBlack;
pnl.Left=pnl.Top=10;
pnl.ClientWidth =320;
pnl.ClientHeight=240;

// Медиа-плеер
mpl=new TMediaPlayer(frm);
mpl.Display=pnl;
mpl.VisibleButtons=btPause+btPlay;
mpl.Left=pnl.Left+(pnl.Width-mpl.ClientWidth)/2;
mpl.OnClick=mpl_Click;

// Индикатор
prb=new TProgressBar(frm);
prb.Orientation=pbHorizontal;
prb.SetBounds(
  pnl.Left,pnl.Top+pnl.Height+10,
  pnl.Width,stb.ClientHeight
);

// Таймер
tmr=new TTimer(frm);
tmr.Interval=10;
tmr.OnTimer=tmr_Timer;

mpl.Top=prb.Top+prb.Height+pnl.Top;

frm.ClientWidth =pnl.Left*2+pnl.Width;
frm.ClientHeight=mpl.Top+mpl.Height+pnl.Top+stb.Height;

mpl.FileName=
JSPlus.HelpDir+"MEDIA\\TMediaPlayer\\Puh.wmv";
mpl.Open();
prb.Min=mpl.Position=mpl.Start;
prb.Max=mpl.Length;

frm.ShowModal();

// Обработчик события OnClick
function mpl_Click(mpl,btn)
{
  if (btn==btPlay)
    tmr.Enabled=true;
}

// Обработчик события OnTimer
function tmr_Timer(tmr)
{
  if ((prb.Position=mpl.Position)==prb.Max) {
    tmr.Enabled=false;
    prb.Position=mpl.Position=mpl.Start;
  }
  ProcessMessages();
}