<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <p><br>
    </p>
    <br>
    <div class="moz-cite-prefix">Dňa 23.4.2018 o 13:52 Maciej Izak
      napísal(a):<br>
    </div>
    <blockquote type="cite"
cite="mid:CAFTppY6TitqwkHMDOzzqBDkeLDFrKwkz+aEAFqZAXFaFDkcjbA@mail.gmail.com">
      <div dir="ltr">
        <div class="gmail_extra">
          <div class="gmail_quote">2018-04-23 13:45 GMT+02:00 Maciej
            Izak <span dir="ltr"><<a
                href="mailto:hnb.code@gmail.com" target="_blank"
                moz-do-not-send="true">hnb.code@gmail.com</a>></span>:<br>
            <blockquote class="gmail_quote" style="margin:0px 0px 0px
              0.8ex;border-left:1px solid
              rgb(204,204,204);padding-left:1ex">
              <div dir="ltr">
                <div class="gmail_extra">
                  <div class="gmail_quote">
                    <div><a
href="https://github.com/maciej-izak/PascalSmartPointers/tree/master/examples"
                        target="_blank" moz-do-not-send="true">https://github.com/maciej-izak<wbr>/PascalSmartPointers/tree/mast<wbr>er/examples</a></div>
                  </div>
                </div>
              </div>
            </blockquote>
            <div><br>
            </div>
            <div>small mistake, this is more proper url :)</div>
            <div><br>
            </div>
            <div><a
href="https://github.com/maciej-izak/PascalSmartPointers/tree/master/sources"
                target="_blank" moz-do-not-send="true">https://github.com/maciej-<wbr>izak/PascalSmartPointers/tree/<wbr>master/sources</a> </div>
          </div>
          <div><br>
          </div>
          -- <br>
        </div>
      </div>
    </blockquote>
    Thank you.<br>
    Can you give small example for my use case ? I can not understand
    from above mentioned examples.<br>
    <br>
    So I need to have:<br>
    <br>
    unit A;<br>
    type<br>
      TClassA = class<br>
        public<br>
           procedure Method1;<br>
      end;<br>
    <br>
    unit B;<br>
    type<br>
      TClassAHelper1 = class helper for TClassA<br>
        public<br>
          procedure MethodB1;<br>
          procedure MethodB2;<br>
      
    end;<br>
    <br>
    unit C;<br>
    type<br>
      TClassAHelper2 = class helper for TClassA<br>
        public<br>
          procedure MethodC1;<br>
          procedure MethodC2;<br>
      
    end;<br>
    <br>
    and in program:<br>
    <br>
    use A,B,C;<br>
    var instanceA: TClassA;<br>
    ...<br>
    instanceA := TClassA.Create;<br>
    instanceA.Method1;<br>
    instanceA.MethodB1; // defined in unit B<br>
    instanceA.MethodC1; // defined in unit C<br>
    ...<br>
    <br>
    L.<br>
    <br>
  </body>
</html>