var  
pszAliasName: PChar; { Имя псевдонима }  
pszDriverType: PChar; { Тип драйвера для псевдонима }  
pszParams: PChar; { Дополнительные параметры }  
bPersist: Bool; { Постоянный или временный псевдоним }  
dbiRes: Integer; { Возвращаемый код }  
begin  
pszAliasName := strAlloc(25);  
pszDriverType := strAlloc(25);  
pszParams := strAlloc(100);  
  
try  
bPersist := True;  
strPcopy(pszAliasName, ′Lance′);  
strPcopy(pszDriverType, ′PARADOX′);  
strPcopy(pszParams, ′PATH:′ + ′c:Paradox′);  
  
dbiRes := DbiAddAlias(nil, pszAliasName, pszDriverType, pszParams,  
bPersist);  
  
finally  
strDispose(pszAliasName);  
strDispose(pszDriverType);  
strDispose(pszParams);  
end;  
end;