ما مشكلة هذا الكود

السلام عليكم ورحمة الله و بركاته

ما مشكلة هذا الكود , حيث انني اقوم بعمل منظومة باحد اجزائها كود اختبار الإتصال بقاعدة بيانات من نوع (SQL Server 2005)

المشكلة هي عند ادخال اسم السيرفر و اسم قاعدة البيانات صحيحين و اختبار الإتصال يعمل الكود بدون اي مشاكل اما عندما اخطئ في احدهما و اختبار الإتصال يتوقف النظام عن العمل .

وهذا هو الكود:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOConnection1 do
	begin
	  Close;
	  ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+Trim(Edit1.Text)+';Data Source='+Trim(Edit2.Text);
	  Open;
	  if Connected then
		MessageDlg('		 Connection Successful					  ',mtInformation,[mbOk],0)
	  else
		MessageDlg('		 Connection Unsuccessful					  ',mtError,[mbOk],0)
	end;
end;

والذي اريده بضبط هو اختبار الإتصال بقاعدة البيانات برماجياً

ملاحظة :- اسم السيرفر اقوم بادخاله عن طريق Edit2 و اسم قاعدة البيانات اقوم بادخالهم عن طريق Edit1