proba el siguiente, a mi me funcion bien.
procedure tform1.fDbiAddAlias2(AliasName, AliasPath: string);
var
cursor: hDBICur;
begin
bde.dbiinit(nil);
bde.DbiBeginDelayedUpdates(cursor);
bde.DbiApplyDelayedUpdates(cursor,dbiDelayedUPDPREPARE);
DbiAddAlias(nil, PChar(AliasName), 'INTRBASE', PChar(AliasPath), True);
bde.DbiApplyDelayedUpdates(cursor,dbiDelayedUpdCommit) ;
bde.DbiEndDelayedUpdates(cursor);
bde.DbiExit;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
fDbiAddAlias2('TKK', 'PATH:127.0.0.1:c:\databases;' +
'SERVER NAME:127.0.0.1:c:\databases\avx.fdb;' +
'USER NAME:SYSDBA;' +
'SQLQRYMODE:SERVER;' +
'SQLPASSTHRU MODE:SHARED NOAUTOCOMMIT');
end;
ojo: en uses debes usar DB y BDE