FileExists не находит половину файлов

[HellMercenariess]

Вот в этом месте почему-то не находит файлы с буквами 'ü,ö,ä,ß,' а их большинство:

 
var  
   s: UTF8string;
begin
 while not  EOF(F) do
     Readln(F, S);
     if (FileExists(aDir+S+'.mp3')) then
      { if not sl.IndexOf(S)>-1 then  }
      begin
      listBox1.Items.Add(S);
      inc(LExpress);
   end;
   end;

если закоментировать 4ю строку то все гут добавляется

[hon]

Сообщение от HellMercenariess

Вот в этом месте почему-то не находит файлы с буквами 'ü,ö,ä,ß,' а их большинство:

 
var  
   s: UTF8string;
begin
 while not  EOF(F) do
     Readln(F, S);
     if (FileExists(aDir+S+'.mp3')) then
      { if not sl.IndexOf(S)>-1 then  }
      begin
      listBox1.Items.Add(S);
      inc(LExpress);
   end;
   end;

если закоментировать 4ю строку то все гут добавляется

aDir возможно не имеет букву диска или слеши в конце

[HellMercenariess]

aDir возможно не имеет букву диска или слеши в конце

а как потом из списка уже все нормально находится? Слеш я нигде недобавляю больше.

aDir='E:\Speech\Named\';

if (FileExists(aDir+ListBox1.Items.Strings[ListBox1.Count-1]+'.mp3'))then

[Аватар]

UTF8string - ?
NTFS - имена файлов в 2-ух байтовом юникоде, не в этом беда?

[HellMercenariess]

Сообщение от Аватар

UTF8string - ?
NTFS - имена файлов в 2-ух байтовом юникоде, не в этом беда?

и как это все теперь конвертнуть перед проверкой?
Если S- обычная строка тогда в список грузит какахи вместо символов ü ß и других