Código Delphi
[-]
DirPrograma := ExtractFileDir (Application.ExeName);
...
RutaReporte := ExtractFilePath (Application.ExeName) + 'Reporte.pdf';
Alternativa:
Código Delphi
[-]
DirPrograma := ghExeDir;
...
RutaReporte := ghDirPath ('Reporte.pdf');
Además de ser más cortas, las segundas opciones no requieren la existencia del objeto
Application (algunos programas prescinden de la unidad Forms).