Logical error

[status-kvo]

unit Quick.Threads;

function TThreadedQueueCS<T>.PopItem(var AQueueSize: Integer; var AItem: T): TWaitResult;

before the line AItem := FQueue[FQueueOffset];

need to add array size check if (FQueueOffset >= Length(FQueue)) then Exit;

otherwise an error occurs Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'. string: AItem := FQueue[FQueueOffset];

watch Length(FQueue) = 0; watch FQueueOffset = 60;

[exilon]

Which version are you using?