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;