procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Provider := 'SQLOLEDB.1';
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;'
+ 'User ID=user;Password=1234;'
+ 'Initial Catalog=AdventureWorks2012;'
+ 'Data Source=PCNG\SQLEXPRESS';
ADOConnection1.LoginPrompt := False;
ADOConnection1.Open;
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * from Person.Address';
ADOQuery1.Open;
end;