Какой существует альтернативный путь к файлам?

var
  FileName : String;
...
begin
  //Полный путь к файлу rez.xls, который лежит в той же папке, где расположен исполняемый
  //файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + 'rez.xls';
...
end;

Excel:=CreateOleObject('Excel.Application');
Excel.WorkBooks.Open('С:\Программа\rez.xls');
Excel.Cells[3,2]:=Edit2.Text;
Excel.Cells[3, 1]:=Edit1.Text;
Excel.Cells[3, 3]:=Edit3.Text;
Excel.DisplayAlerts := False;
Excel.ActiveWorkbook.Save;
Excel.WorkBooks.Close;

uses
  ComObj;
...
var
  Excel, Book, Sheet : OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Visible := False;
  //Открываем рабочую книгу из файла rez.xls, который расположен в той же папке,
  //где лежит исполняемый файл программы. Ссылку на открытую книгу
  //присваиваем переменной Book.
  Book := Excel.Workbooks.Open(ExtractFilePath(ParamStr(0)) + 'rez.xls');
  //Получаем ссылку на первый лист рабочей книги.
  Sheet := Book.Worksheets[1];
  Sheet.Cells[3, 1] := Edit1.Text;
  Sheet.Cells[3, 2] := Edit2.Text;
  Sheet.Cells[3, 3] := Edit3.Text;
  //Отключение режима показа предупреждений.
  Excel.DisplayAlerts := False;
  //Сохранение рабочей киниги.
  Book.Save;
  //Excel.DisplayAlerts := True;
  //Закрываем рабочую книгу.
  Books.Close;
  //Закрываем MS Excel.
  Excel.Quit;
end;