Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как узнать, доступен ли в сети сервер MS SQL?

01.01.2007

Здесь представлена функция, выполняющая проверку доступности MS SQL сервера.

function CheckMSSQLServer(fServerName, fUserName, fPsw : String) : Bool; 
Var
  wDb
: TDatabase;
begin  // Check if MS SQL Server is reachable
 
// Важно! BDE Должна быть установлена
 
Result := False;
  wDb
:= TDatabase.Create(nil);
 
 
with wDb do
   
begin
     
DatabaseName := 'wDbDatabaseName'; // arbitrary name, must be unique
                                         
// in current Session
     
Params.Values['SERVER Name'] := fServerName;
     
Params.Values['USER Name']   := fUserName;
     
Params.Values['PASSWORD']    := fPsw;
     
LoginPrompt := False;
   
end;
 
 
try
    wDb
.DriverName := 'MSSQL';
   
try
      wDb
.Connected := True;
      wDb
.Connected := False;
   
except
     
ShowMessage('Server is not reachable');
   
end;
   
Result := True;
 
finally
    wDb
.Free;
 
end;
end;

Взято из https://forum.sources.ru