Как динамически подключить SQL server к delphi

---

блок Группы1;

интерфейс

использует
Окна, Сообщения, SysUtils, Варианты, Классы, Графика, Элементы Управления, Формы,
Диалоги, StdCtrls, DB, ADODB;

тип
TForm1 = класс(TForm)
ADOConnection1: TADOConnection;
Button1: TButton;
Edit1: TEdit;
процедура Button1Click(отправитель: TObject);
частный
{ Частные объявления }
общественный
{ Публичное заявление }
конец;

вар
Форма Form1: TForm1;

реализация

{$Р *.ДФМ}

процедура TForm1. Button1Click(отправитель: TObject);
вар
s: строка;
начать
если adoconnection1. connected, то
начать
adoconnection1.Подключено:=false;
конец всему остальному
начать
s: = adoconnection1.Параметр connectionString;
с := объект adodb.PromptDataSource(самовыдвижение.Ручка, s);
adoconnection1.ConnectionString := s;
пробовать
adoconnection1.подключены:=истина;
кроме
конец;
конец;
Edit1.текст := ы;
конец;
конец.

Что я уже пробовал:

У меня есть этот код для базы данных access я хочу такой же код для sql server спасибо

---