title: How to use dwsXPlatform.CollectFiles TCollectFileProgressEvent
body: <p>As I am new to events in delphi I am struggling on how to use dwsXPlatform.TCollectFileProgressEvent in conjunction with dwsXPlatform.CollectFiles.</p>
  
  <p>In the DWScript repository there is no sample or even test code for it.</p>
  
  <pre><code>type
          TForm1 = class(TForm)
                  btn1: TButton;
                  mmoDirList: TMemo;
                  mmoOnCollectFiles: TMemo;
                  procedure btn1Click(Sender: TObject);
          private
                  OnCollectFileProgressEvent: TCollectFileProgressEvent;
          end;
  {...}
  procedure TForm1.btn1Click(Sender: TObject);
  begin
          mmoDirList.Clear;
          CollectFiles('c:\MyDelphiFiles', '*.pas', mmoDirList.Lines, True, OnCollectFileProgressEvent);
  end;
  </code></pre>