Вопросы при создании медиа плеера

[~Psycho~]

Создаю медиаплеер, но столкнулся с некоторыми проблемами:
1. Воспроизведение нескольких файлов из разных папок приводит к тому, что "теряется" путь к файлу и воспроизводится последний добавленный
"Данный файл не найден. Проверьте, что путь и имя файла указанны не верно"
Использую такой код

var
i: integer;
fn: string;
begin
if OpenDialog1.Execute them
begin
For i:=0 to OpenDialog1.Files.Count - 1 do
begin
fn:=ExtractFileName(OpenDialog1.Fil es[i])
ListBox1.items.add(fn);
end;
end;
end;

2. При сворачивании в панель задач и обратном разворачивании окно "застывает", т.е. все визуальные компоненты остаются в прежнем состоянии, как до сворачивания. Например trackbar визуально не меняет позиции, но если уменьшить громкость, то она изменяется
Такие дела

[ArtGrek]

больше кода надо что б понять почему виснет,
а на счет путеи,
что ж вы хотели когда сами отрезаете ети путь из названии, занося в лист бокс,
если не хотите что был виден полныи путь создаите стринглист и держите там, полные пути
вот почитаите
http://www.delphibasics.ru/ExtractFileDir.php

[~Psycho~]

Может можно обмануть судьбу и сделать так, чтобы программа где-нибудь хранила путь к файлу?

создаите стринглист

Ммм... В смысле?

[ArtGrek]

var
  Spisok: TStringList;
...
FormCreate
Spisok := TStringList.Create;
...

var
  i: integer;
  fn: string;
begin
  if OpenDialog1.Execute them
  begin
    For i:=0 to OpenDialog1.Files.Count - 1 do
    begin
      Spisok.Add(OpenDialog1.Fil es[i]);
      fn:=ExtractFileName(OpenDialog1.Fil es[i])
      ListBox1.items.add(fn);
    end;
  end;
end;

и бери даные с етого списка, обращение к списку так же по индексам, начиная с 0