Cambiar de directorio

[Cañones]

Hola a todos.
Necesito cambiar de directorio en base a donde está mi exe.
Código Delphi [-]//...MiPrograma\bin\archivo.exe //Esto lo obtengo con ExtractFilePath(Application.ExeName);

Como hago por medio de código cambiar al directorio
...MiPrograma\data\...

Estuve buscando en le foro pero no pude encontrar la solución.
Si ya existe un hilo con la solución por favor que me avice.
Gracias a todos.