Попробуйте следующий код:
vartheStrList: TStringList; GPath: String
; begin
theStrList := TStringList.Create; {Используем GetAliasParams для получения псевдонимов и ассоциированных с ними путей} Session.GetAliasParams(<Здесь псевдоним из выпадающего списка>,theStrList); {Удаляем первые шесть символов, которые всегда равны "PATH="} GPath := copy(theStrList[0],6,length(theStrList[0])) theStrList.Free; end;