program TestEventLogger;

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