Hola,
No entiendo del todo la pregunta. Podría interpretar que querés obtener la ruta actual de tu aplicación, pero también que querés buscar la ruta específica del archivo, por lo cuál la solución es diferente.
Para el primer caso:
Código Delphi
[-]
ExtractFilePath(Application.ExeName);
Para el segundo caso investigá sobre FindFirst, FindNext, y demás tanto en la ayuda de Delphi como en internet. Con un par de bucles y cierta lógica no es para nada difícil hacerte una rutina.
Saludos!