Загрузка в ListBox и интегрированный WMP

[Пепел Феникса]

 WindowsMediaPlayer1.URL:='D:\Музыка\Darksun\2005-El Lado Oscuro\07-Como El Viento.mp3';
 WindowsMediaPlayer1.controls.play;

[Elementery]

Проблема обновлена
Грузится только первое видео , а точнее когда в ListBox или FileListBox находится только 1 итем.
Вопрос заключается в том как сделать чтобы загружались и остальные если не 1 итем в ListBox или в FileListBox.
Коды могут подсказать но я уже не знаю че делать :
procedure TForm4.FileListBox1DblClick(Sender: TObject);
begin
WindowsMediaPlayer1.URL:= 'video/' + FileListBox1.Items.GetText;
end;

procedure TForm4.ListBox1DblClick(Sender: TObject);
begin
WindowsMediaPlayer1.URL:= 'video/' + ListBox1.Items.GetText + '.avi';
end;

[Elementery]

Попробовал сделать так :
procedure TForm4.ListBox1DblClick(Sender: TObject);
begin
ListBox1.ItemIndex:=n;
WindowsMediaPlayer1.URL:= 'video/' + ListBox1.Items.Strings[n] + '.avi';
end;

end.

Но все равно грузит только 1 видео а именно первое. Жду помощи
Вопрос сейчас состоит в том как сделать чтобы когда я выбираю итем в ListBox он боал индекс именно того итема который я выбираю

[Пепел Феникса]

if ListBox1.ItemIndex<0 then exit;
WindowsMediaPlayer1.URL:= 'video/' + ListBox1.Items.Strings[ListBox1.ItemIndex] + '.avi';

[Elementery]

Спасибо!!! Помогло , только я так и не понял как действует эта функция =)

[Elementery]

Еще вопросец как бы сделать чтобы запуская программу WMP не становился изначального интегрированного размера =)
А точнее подстраивал расширение загружаемого видео к размеру заданному мной WMP.

[Пепел Феникса]

ListBox1.ItemIndex

возвращает номер выделенного элемента или -1 если ничего не выделена(на этом и основа условие вначале)

Еще аопросец как бы сделать чтобы запуская программу WMP не становился изначального интегрированного размера =)

всмысле?

[Elementery]

В том смысле что какого размера я бы не делал WMP на форме даже прописывая:
procedure TForm4.FormActivate(Sender: TObject);
begin
WindowsMediaPlayer1.Height:=473;
WindowsMediaPlayer1.Left:=144;
WindowsMediaPlayer1.Width:=1017;
end;
Он становится маленьким при запуске проекта , а точнее размером который импортирован (стандартным при занесении на форму).
А когда запускаю видео , кстате я переделал аналогично на FileListBox.
WMP подстраивается под разрешение видео , вот я и хочу сделать так чтобы он при запуске был того размера что поставил я и загружаемое видео подстраивалось под разрешение WMP а не изменяло его размер подстраивая под себя.

[Elementery]

Разобрался что для того чтобы WMP не менял размер надо поставить у формы свойство:
ActiveControl = WindowsMediaPlayer1

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

[Elementery]

Тема Ап , не вижу не каких решений , предложения бы какие нибудь