procedure CheckAlias(const AliasName, AliasType, AliasPath: String); 
{ Если алиас не существует, создать его } 
var 
 SList: TStrings; 
 i: Integer; 
 AliasFound: Boolean; 
begin 
 { Проверка существования алиса BDE } 
 try 
 SList := TStringList.Create; 
 Session.GetAliasNames(SList); 
 AliasFound := False; 
 for i:=0 to SList.Count-1 do 
 if SList[i]=AliasName then 
 begin 
 AliasFound := True; 
 break; 
 end; 
 finally 
 SList.Free; 
 end; 
 if AliasFound then 
 begin 
 try 
 SList := TStringList.Create; 
 Session.GetAliasParams(AliasName,SList); 
 {А в 4-ой версии SList[2]!!! и без слова Path } 
 if SList[0]< > 'PATH='+AliasPath then { Правильно ли задан путь } 
 begin 
 SList[0] := 'PATH='+AliasPath; 
 Session.ModifyAlias(AliasName,SList);
 end; 
 finally 
 SList.Free; 
 end; 
 end 
 else 
 Session.AddStandardAlias(AliasName,AliasPath,AliasType); { Создать новый алиас } 
 Session.SaveConfigFile; 
end;