Поогите с Delphi video

[Helga_2406]

Помогите пожалуйста. Нужен код видеоплеера.. простенького, который бы при событии OnClick на Image воспроизводил бы видеофайл, заранее указанный в коде

[Utkin]

http://www.delphisources.ru/pages/faq/multimedia.html Здесь посмотри.
И здесь: http://programmersclub.ru/labmultimedta/
И еще: http://articles.org.ru/cn/?c=14

[Helga_2406]

Вот что получилось:
procedure TForm1.Image1Click(Sender: TObject);
begin
MediaPlayer.Display:=Loading;
MediaPlayer.FileName := 'C:\Documents and Settings\Ольга\Рабочий стол\Электрон. справочник\aWelcome.avi';
MediaPlayer.Open;
MediaPlayer.Play;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
MediaPlayer.Play;

end;

procedure TForm1.Image2Click(Sender: TObject);
begin
MediaPlayer.Stop;
end;

end.


Хотелось бы спросить. Как можно сделать так, чтоб кроме ави другие расширения воспроизводил?