1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   begin
4     ADOConnection1.ConnectionString := 'Server=Hostname;DataBase=DatabaseName';
5     ADOConnection1.Open('UserName', 'Password');
6     ADOConnection1.Connected := True;
7   end;
8   
9   
10  {* For Any Information Mail Me *
11  
12  Mail : Mostafa@Touska.Co.ir