var
AliasList:TStringList;
....
begin
AliasList.Add(Format('DATABASE NAME=%s',[Trim(edtDatabase.Text)]));
AliasList.Add(Format('SERVER NAME=%s',[Trim(edtServer.Text)]));
AliasList.Add(Format('HOST NAME=%s',[Trim(edtHost.Text)]));
AliasList.Add(Format('USER NAME=%s',[Trim(edtUser.Text)]));
AliasList.Add(Format('ENABLE BCD=%s',['True']));
AliasList.Add(Format('PASSWORD=%s',[Trim(edtPsw.Text)]));
Session.AddAlias(Trim(edtAlias.Text),'MSSQL',AliasList);
Session.SaveConfigFile;
end;