Непонятная ошибка! Delphi

[Xaker_Two]

Есть код загрузки изоброжения в TImage

BackGround.Picture.LoadFromFile(txtr+'sun'+CurSunState+Exp);
BackGroundTemp.Picture.LoadFromFile(txtr+'sun'+NextSunState+Exp);

где txtr, CurSunState и Exp уже определены. Есть Диалог открытия файла

if Sender = SetSound then if ChsAlarm.Execute = True then AlarmS:=ChsAlarm.FileName;

и есть кусок кода в котором задаются стартовые параметры ChsAlarm (диалога)

  ChsAlarm:=TOpenDialog.Create(Self);
  ChsAlarm.Filter:='Звуковой файл Wav|*.wav';
  ChsAlarm.InitialDir:=sndDef;
  ChsAlarm.Title:='Выбор Файла';
  ChsAlarm.FilterIndex:=1;
  ChsAlarm.FileName:='01.wav';

где sndDef уже тоже определена. Вообще sndDef, txtr, Exp являются константами. При открытии диалога все идет нормально до тех пор пока я не вхожу на диск D, на котором хранятся файлы проги. А если задать sndDef директорию 'sounds\' что находится в одном каталоге с exe-шником ну или как сказал ранее на диск D то прога выдает ошибку(смотри скрин). В ЧЕМ ПРОБЛЕМА НЕ ПОЙМУ. но меняется путь к самой проге: т.е. если изначально он равен положению exe-шника (D:\MyPrograms\Delphi7\Project\) то при заходе в любое место на диске D он меняется на путь из opendialog.filename(D:\Program Files\...)

Как избавится от этой ошибки?!!!

[Stilet]

Как избавится от этой ошибки?

Проверить все ли символы в пути совпадают с символами в строке пути к файлу, передаваемой в функцию загрузки. Бывает что символ из другой раскладки затесался.

[Xaker_Two]

Насчет другог символа бред т.к. OpenDialog задействуется не сразу а вот обновляются картинки регулярно раз в пол секунды. И плюс в ошибке явно текущим местоположением Exe указана последняя папка в которую я заходил. На самом деле я разобрался и прикол был в том что CurrentDir при использовании OpenDialog принимает значение OpenDialog.FileName и при том его использует и вся программа(CurrentDir). Так что единственное простое решение это в самом начале записать в переменную String значение CurrentDir+'\'. А затем подставлять её в самом начале где необходимо! Собственно говоря проблему я так и решил)

[northener]

ChsAlarm:=TOpenDialog.Create(Self);
ChsAlarm.Options:=ChsAlarm.Options+[ofNoChangeDir];

[Xaker_Two]

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

ChsAlarm.Options+[ofNoChangeDir];

спасибо надо будет детальней разобраться с его опциями и процедурами. По сути я его раз 2 использую)