THIMFPlayer.WindowCallback
...
    {WM_LBUTTONDOWN:
      begin
        _hi_onEvent(_event_onLbuttonDown);
        inc(count_click); // считаем  кол-во нажатий
        // отложим на время двойного клика
        TargetTime := GetTickCount + GetDoubleClickTime;
        while GetTickCount <  TargetTime
          do Applet.ProcessMessages;
        // по количеству Click or DblClick
        if count_click = 1 then Pause;
        if count_click = 2 then FullScreen;
        count_click := 0;
      end;}