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;