Неудается найти файл TStringlist

[true1]

Здравствуйте, нашел я исходник программы для удаленной командной строки, немного модифицирую, но сталкнулся с неожиданной проблемой:

procedure TForm1.FormCreate(Sender: TObject);
var
str:TStringlist;
i:integer;
tmp: string;
begin
  str:=TStringlist.Create;
  str.LoadFromFile('commands.txt');
    for i:=0 to str.Count-1 do
     begin
      tmp:=str.Strings[i];
      IdTCPClient1.Write(AnsiToOem(tmp));
    end;

Говорит что такого файла нет, что довольно таки странно, потомучто он там есть, ошибок в написании нет, единственное думаю что это связано с типом текста, пробывал Pchar тоже не работает, таже ошибка.

Вот весь код:

[Аватар]

А где там? Полный путь попробуйте задать

[volvo877]

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

потомучто он там есть

Где "там"? Рядом с программой?

str.LoadFromFile(ExtractFilePath(Application.ExeName) + 'commands.txt');

, иначе мало ли какая папка в данный момент "текущая"

[true1]

Да я пробывал полный путь, и рядом с исполняемым файлом лежит..

Делаю проверку перед загрузкой файла (FileExist('')) компилятор его видет

[Stilet]

Советом volvo877 воспользовался?

[true1]

Да я все это пробывал до совета я щас попробывал в другом проэкте сделать, тоже самое, ошибка видимо в установке Delphi косяк какойто, извените.

[Rock-n-Rolla]

а вы уверены что файл не занят другим процессом?

[true1]

100 % Уверен, не хочет грузить и все, раньше такого не было..

Загрузил Opendialog но это не торт..

[Stilet]

ошибка видимо в установке Delphi косяк какойто

Все так думают, на самом деле косяк в кривых руках и непонимании как должен работать код.

[true1]

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

Все так думают, на самом деле косяк в кривых руках и непонимании как должен работать код.

Раз так утверждаешь обьясни причину такого поведения