Сорри, что опять занимаюсь некромантией...
Указанная команда "ExtractFilePath(Application.ExeName)" иногда выдаёт очень весёлые глюки. Посему советую использовать вот такой код с разносом и проверкой:
Код:
Path:=Application.ExeName;
Path:=ExtractFileDir(Path);
if Path[Length(Path)]<>'\' then Path:=Path+'\';
P.S. Во я загнул
Да, нехило я обгоняю школьную программу 10 класса, isn't it?