title: How to enumerate MSSQL Servers from a 64-bit client app?
body: <p>I'm looking for a way of enumerating MS SQL Servers on the local network from a 64-bit Delphi application.  The method I've used thus far on 32-bit works fine but contains assembly code which won't compile on 32-bit.  I can't seem to find a way of enumerating servers from a 64-bit client.</p>
  
  <p>The code that I cannot compile is this:</p>
  
  <pre><code>function PtCreateADOObject(const ClassID: TGUID): IUnknown;
  var
    Status: HResult;
    FPUControlWord: Word;
  begin
    asm
      FNSTCW FPUControlWord
    end;
    Status := CoCreateInstance(
                CLASS_Recordset,
                nil,
                CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
                IUnknown,
                Result);
    asm
      FNCLEX
      FLDCW FPUControlWord
    end;
    OleCheck(Status);
  end;
  </code></pre>