Псевдонимы

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;