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