procedure CreateAlias();  
const  
DlPs = 5;  
var  
wrstr, wrstr1 :string;  
AParams: TStringList;  
Psevdonm: array [1..DlPs] of string;  
i: integer;  
begin  
//Заполним массив  
Psevdonm[1] := ′TERMNNSI,NSI′; // имя,каталог  
Psevdonm[2] := ′TERMNBASE,BASE′;  
Psevdonm[3] := ′TERMNTNL,BASETNL′;  
Psevdonm[4] := ′TERMNARH,ARH′;  
Psevdonm[5] := ′TERMNTELE,TELE′;  
// if not DirectoryExists(datapath) then begin  
// createdir(datapath) ;  
// end;  
for i := 1 to DlPs do  
begin  
// Для начала проверим каталоги  
wrstr1 := Copy(Psevdonm,Pos(′,′,Psevdonm)+1, Length(Psevdonm)-Pos(′,′,Psevdonm)+1);  
if not DirectoryExists(wrstr1) then  
begin  
CreateDirectory(PChar(CurrntDir+′′+wrstr1),nil);  
end;  
  
// Если нет псевдонима, то создадим или подправим  
wrstr := Copy(Psevdonm,1,Pos(′,′,Psevdonm)-1);  
if not Session.IsAlias(wrstr) then  
begin  
try  
Session.AddStandardAlias(wrstr,wrstr1,′PARADOX′);  
Session.SaveConfigFile;  
except  
SaveTekJrn(′ERR:Ошибка создания алиаса - ′+wrstr);  
Exit;  
end;  
end;  
//Настроим алиас  
AParams := TStringList.Create;  
AParams.Add(′PATH=′ + CurrntDir+′′+wrstr1);  
Session.ModifyAlias(wrstr,AParams);  
Session.SaveConfigFile;  
// Освобождение списка  
AParams.Free;  
end;  
end;