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;