function GetPathFromAlias(Alias:String):string;
var strings:TStrings;
session:TSession;
path,aliaspath:string;
i:integer;
begin
strings:=Tstringlist.Create;
session:=Tsession.Create(self);
session.SessionName:='session_1_2';
session.GetAliasParams(Alias,strings);
path:=strings.Strings[0];
i:=6;
while path<>'' do
begin
aliaspath:=aliaspath+path;
i:=i+1;
end;
strings.Destroy;
session.Destroy;
result:=aliaspath;
end;
