PROCEDURE</b></span> doprogress (const sender: tobject; const avalue: real;
                                                    var acancel: boolean);
        <span style="color:navy"><b>PROPERTY</b></span> cancel: boolean <span style="color:navy"><b>READ</b></span> fcancel <span style="color:navy"><b>WRITE</b></span> fcancel;
        <span style="color:navy"><b>PROPERTY</b></span> value: realty <span style="color:navy"><b>READ</b></span> fvalue <span style="color:navy"><b>WRITE</b></span> setvalue;
      P