[[Lepe]]

Tu mismo te estas respondiendo:

Código Delphi [-]
  Application.exename; // ruta y nombre de tu ejecutable
  ExtractFilePath(Application.exename); // devuelve solo la ruta 
// no recuerdo si el ultimo "\" está incluido o no, pon un showmessage para verlo

Saludos