# destructor TThreadStringList.Destroy;
# begin
# LockList;
# try
# FStringList.Free;
# inherited Destroy;
# finally
# UnlockList;
# DeleteCriticalSection(FLock);
# end;
# end;

I’ve had problems when freeing objects after the inherited Destroy was called, like in this code example. (In my case running on linux, using FPC; http://community.freepascal.org:10000/bboards/message?message_id=391565&forum_id=24083)

If you run into an unobvious deadlock on the destructor code, you might want to try and move out the inherited Destroy to the bottom of the destructor.

You are correct mate, for the author I’am sorry that I mistakenly omitted the the Credit for your name.

Credit have been added to the Source..

Thanx mate for you correction..

TThreadStringList is a simple wrapper for TStringList.
This makes it possible to access a StringList from
different threads without any conflicts.
Most functions and properties are included.
————————————————————-
TThreadStringList ist ein einfacher Wrapper für TStringList,
der es ermöglicht von verschiedenen Threads auf eine
Stringliste zuzugreifen ohne das Konflikte entstehen.
Die wichtigsten Funktionen und Eigenschaften sind enthalten.