Delphi Cookbook - Third Edition

How to do it...

Follow these step-by-step instructions to synchronize shared resources with TMonitor:

1. Create a new VCL Forms Application (navigate to File | New | VCL Forms Application).

2. Drop a TButton, TListBox, and TTimer component on the form.
3. Name the TButton component as btnStart, and change the value of Caption to Multiple writes on a shared file.
4. Add a new unit to the project, call it FileWriterThreadU.pas, and add the following code to it:

unit FileWriterThreadU; 
 
interface 
 
uses 
  System.Classes, System.SyncObjs, System.SysUtils, System.IOUtils; 
 
type 
  TThreadHelper = class helper for TThread 
  public 
    function WaitFor(ATimeout: Cardinal): LongWord; platform; 
  end; 
 
  TFileWriterThread = class(TThread) 
  private FStreamWriter: TStreamWriter; ...