fault code:
Code: Select all
{ TZDriverManager }
{**
Constructs this object with default properties.
}
constructor TZDriverManager.Create;
begin
FDriversCS := TCriticalSection.Create;
FLogCS := TCriticalSection.Create;
FDrivers := TZCollection.Create;
FLoggingListeners := TZCollection.Create;
FGarbageCollector := TZCollection.Create;
FHasLoggingListener := False;
FTimer := TZThreadTimer.Create(ClearGarbageCollector, 1000, True); //--> THIS LINE IS THE CULPRIT
end;
Code: Select all
initialization
DriverManager := TZDriverManager.Create;
GlobalCriticalSection := TCriticalSection.Create;