Hola
El ejemplo que mostro Casimiro dara la direccion de X/Data.
Código Delphi
[-]
var
directory : string;
begin
GetDir(2, directory);
ShowMessage(directory+'\Data');
Asi se puede saber la direccion correcta y ampliar la misma a la carpeta Data.
El dato es string, se puede usar de cualquier forma
Saludos