[ivsatel]

Посмотрите пожалуйста, в чем ошибка?

Код:

procedure ChangeString;
var
  S: TArrayOfString;
  F: string;
  i: Integer;
begin
  F:= ExpandConstant('C:\report.txt');
  if not FileExists(F) then Exit; // если файла нет, выходим
  LoadStringsFromFile(F, S); // загружаем файл
  for i:= 0 to GetArrayLength(S)-1 do
    if Pos('c:\Program Files', S[i]) > 0 then
      S[i]:= {app};   // записываем параметр
  SaveStringsToFile(F, S, False); // сохраняем файл
end;