<html>
  <head>

    <meta http-equiv="content-type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <table class="diff-table tab-size " data-tab-size="8">
      <tbody>
        <tr>
          <td class="blob-code blob-code-addition"><span
              class="blob-code-inner">+<span class="pl-k">procedure</span>
              <span class="pl-en">NSScrollerGetScrollInfo</span>(docSz,
              pageSz: CGFloat; rl: NSSCroller; <span class="pl-k">Var</span>
              ScrollInfo: TScrollInfo);</span> </td>
        </tr>
        <tr>
        </tr>
      </tbody>
    </table>
    <table class="diff-table tab-size " data-tab-size="8">
      <tbody>
        <tr>
          <td class="blob-code blob-code-addition"> <span
              class="blob-code-inner"></span><br>
          </td>
        </tr>
        <tr>
        </tr>
      </tbody>
    </table>
    <pre class="moz-signature" cols="72">Pls use "out" instead of "var", because with "var" fpc gives warnings about not inited parameter

-- 
Regards,
Alexey</pre>
  </body>
</html>