program TestEventLogger;

 uses
   Classes, SysUtils, EventLog, SingletonTest;
 
 var
   A, B: TEventLog;
 
 begin
   A := TSingleton.GetInstance.EventLog;
   B := TSingleton.GetInstance.EventLog;
   A.Info('Info from A.');
   B.Info('Info from B.');
 end.