[dec]

Hola,

Echa un vistazo a funciones como "ExtractFilePath()" y "ParamStr()". Con ellas puedes conocer la ruta del directorio donde se encuentre el archivo ejecutable de tu aplicación:

Código Delphi [-]
(* ... *)

uses
  SysUtils, (* ... *);

(* ... *)

var
  appPath: string;
begin
  appPath := ExtractFilePath(ParamStr(0));

  // "appPath" contiene el directorio del ejecutable de tu aplicación

  (* ... *)

end;