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=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;