Pascal/Turbo Pascal - Directorio activo

Hola,
Quisiera saber como puedo saber el directorio activo o concurrente en el que esta corriendo el programa en ejecución.

Gracias.

Aquí va:

{Retorna la ruta actual}
Function CurrDir :String;
Var
D :String;
Begin
GetDir(0, D);
CurrDir := D;
End; {CurrDir}

Saludos ;-)

Gracias Hurricane