Hola Tica.....
prueba hacer esto
Código:
var
ruta : string;
begin
ruta := ExtractFileDir(Application.ExeName) + '\' + 'archivo.txt';
eti.Caption := 'Se Creará el Archivo en... ' + Ruta;
end;
la funcion extractfiledir te devuelve la ruta donde esta tu aplicacion.... no importe donde este instalada....
espero te sirva