OpenDialog.execut как выполнить программно

[mutb]

Немного начал программировать упёрся в тупик, помогите. Есть процедура из mp3 проигрывателя которая отвечает за выбор файлов и добавления их в плейлист через OpenDialog (функция ofAllowMultiSelect=True):

procedure TForm_player.Button1Click(Sender: TObject);
var j: integer;
begin
OpenDialog1.Title := 'Open Files';
OpenDialog1.Filter := 'mp3|*.mp3'; //фильтр для файлов
//проверяем если PlayList не пустой то запоминаем номер текущей песни
//иначе устанавливаем номер песни 0 (первая позиция в PlayList)
if listbox1.Count<>0 then i:=ListBox1.ItemIndex else i:=0;
//Диалог открытия файла
if not OpenDialog1.Execute then exit;
begin
for j:=0 to OpenDialog1.Files.Count-1 do
begin
//заполняем PlayList
ListBox1.Items.Add(OpenDialog1.File s.Strings[j]);
end;
end;
//запоминаем имя файла текущей песни в плейлисте
Filename:=ListBox1.Items.Strings[i];
//Выделяем эту песню в PlayList
ListBox1.ItemIndex:=i;
end;

Я хочу по ходу выполнения кода программы эмитировалось выбор 1 и более файлов, несколько раз для добавления в плейлист. А потом я запущу его проигрывания.
Но не как не могу эмитировать выбор файлов.
Если присваиваю через OpenDialog1.FileName, то тогда значение OpenDialog1.Files.Strings[j] равно 0 и программа не срабатывает. Если присваиваю через OpenDialog1.File[j] не срабатывает.
Не совсем понимаю, какие переменные используются при выборе файла через execute. Подскажите пожалуйста

[Valio]

Я ничего не понял. Вот так если написать то работает?

OpenDialog1.Title := 'Open Files';
OpenDialog1.Filter := 'mp3|*.mp3'; //фильтр для файлов

if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count - 1 do
ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files.Strings[i]));

[BDA]

Зачем таким образом эмулировать?
Сразу записывайте, что хотите, в listbox1.

Valio, я так понял, что приведенная ТС функция работает, когда вызвана пользователем.

[mutb]

Это рабочий кусок кода. Но я хочу сделать примерно так (не срабатывает):

OpenDialog1.Files[1]:='\mp3\diskoteka.mp3';
OpenDialog1.Files[2]:='\mp3\diskoteka2.mp3';
for j:=0 to OpenDialog1.Files.Count-1 do
begin
ListBox1.Items.Add(OpenDialog1.File s.Strings[j]);
end;
end;
Filename:=ListBox1.Items.Strings[i];
ListBox1.ItemIndex:=i;

Выбрать файлы через opendialog но вручную. Но не знаю какие переменные использовать, чтобы обойтись без графического режима

[Valio]

Дык почемуб не писать так:

ListBox1.Items.Add('\mp3\diskoteka.mp3');
ListBox1.Items.Add('\mp3\diskoteka2.mp3');

Если не нужно участие пользователя, то не надо трогать опендиалог.

[BDA]

Выбрать файлы через opendialog но вручную.

Эту фразу не понял
Делайте сразу так:

if listbox1.Count<>0 then i:=ListBox1.ItemIndex else i:=0;
ListBox1.Items.Add(ExtractFilePath(ParamStr(0))+'mp3\diskoteka.mp3');
Filename:=ListBox1.Items.Strings[i];
ListBox1.ItemIndex:=i;

[mutb]

Большое спасибко, оказывается всё намного проще))