procedure TForm1.Button3Click(Sender: TObject);
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add(′SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB′);
Add(′USER NAME=MYNAME′);
end;
Session1.AddAlias(′NewIBAlias′, ′INTRBASE′, MyList);
finally
MyList.Free;
end;
end; 

Получить ссылку на материал