Problemas con Threads

[xangiesaurx]

Que tal, buenos días a todos, vengo a comentarles que ya encontré la solución, hice unas modificaciones al código.

Código que daba errores:

Código Delphi [-]
procedure TBlockingQueueContentHandler< T >.NotifyDequeue(sender : TObject;
                                                        const item : T;
                                                        action : TCollectionNotification);
begin
  if (action = cnRemoved) and (TObject(item) <> nil) then 
    TObject(item).Free;                                    
end;

Código modificado:

Código Delphi [-]
procedure TBlockingQueueContentHandler< T >.NotifyDequeue(sender : TObject;
                                                        const item : T;
                                                        action : TCollectionNotification);
begin
  if (action = cnRemoved) and (PObject(@item)^ <> nil) then  
    PObject(@item)^.Free;                                    
end;

Una vez hechos esos cambios, el programa compilo sin problema
Muchas gracias a AgustinOrtu por su ayuda