Помогите разобраться с задачей в Делфи

[Middle.Cry]

Как можно вывести видео через 30 сек или 40, я использую компанент MediaPlayer, и вывожу видео на Panel, но не знаю как вывести это видео через определенный срок, если не затруднит помогите плз разобраться, заранее благодарен, и еще можно ли сделать так чтобы когда видео промоталось её больше нельзя было проматывать при нажатии на панель

[Stilet]

Ну поставь таймер, настрой ему интервал на 40*1000 и при срабатывании запускай видео и отключай таймер.

её больше нельзя было проматывать при нажатии на панель

Чет не понял, ну не пиши ты код запуска видео при нажатии на панель.
Или при остановке видео просто отключай обработчик клика:

Panel.OnClick:=nil

[Middle.Cry]

Ну поставь таймер, настрой ему интервал на 40*1000 и при срабатывании запускай видео и отключай таймер.

а не подскажешь как это кодом выглядить будет?

[Манжосов Денис :)]

Ставишь TTimer
Создаёшь переменную r: byte
Обнуляешь её. Тоесть где-нибудь пишешь такой код:
r := 0;
По событию таймера пишешь:

Inc(r);
if r = 40 then 
             begin
              Timer1.Enabled := false;
               {Далее включаешь видео}
             end;

[mihali4]

А почему просто не установить интервал таймера 40000 ?
Зачем эти извраты с подсчетом секундных интервалов?

[Манжосов Денис :)]

А мне кажется такой интервал (40.000 мс) нагружает систему. Лучше с переменной. Тем более пускай Middle.Cry мозги потренирует
А если интервал будет 40 часов, то что на таймер тоже ставить такой интервал?