كنترل اجراي sqlserver و در دسترس بودن server

[arsisman2006]

سلام
لطفا راهنمايي كنيد :
1) چطور ميشه با client تشخيص داد كه Server و Sql Instance در دسترسه . بعارت ديگه چطوري ميتونم server و Sql instance شناسايي و ping كنم.

2) چطور ميشه از نمايش پنجره خطا مثل خطاي
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.
براي كاربر در دلفي جلوگيري كرد. يعني در صورت بروز اينجور خطاها ، از نمايش پنجره خطا جلوگيري بشه و خود برنامه پيغام ديگه نمايش بده.

از روال زير استفاده ميكنم ولي بازم پيغام بالا رو نمايش ميده - لطفا راهنمايي كنيد.
متشكرم







type




EADOConnectionError = class(EADOError);


function SetupADOConnection(var ADOConnect:TADOConnection;APP_Data:TAppData):Boole an;


begin


with ADOConnect do

begin

if length(APP_Data.SQL_Server) > 0 then
ConnectionString:=APP_Data.SQL_Server;
ConnectOptions:=coConnectUnspecified;
CursorLocation:=clUseClient;
IsolationLevel:=ilCursorStability;
Mode:=cmReadWrite;
end;
try
ADOConnect.Connected:=True;
except
on EADOError do
raise EADOConnectionError.Create('‍');
end;
Result:=ADOConnect.Connected;
end;







استاد كشاورز ، لطف كنيد راهنمايي كنيد.