Потоко-безопасный класс

[Winexcel]

Здравствуйте, можно ли как-то создать класс за счет дженериков, который будет оборачивать существующий в критическую секцию при обращении к методам, полям, атрибутам?

Например сделать аналог TThreadList только на основе дженерика, который будет заранее знать все методы, поля, атрибуты класса и оборачивать их в критическую секцию. Реально ли такое? Без описания каждого конкретного класса? Например для класса TStringList я сейчас написал такой класс:

  TSynchronizeStringList = class(TStringList)
  protected
    FCriticalSection:TCriticalSection;
    function GetTextStr: string; virtual;
    procedure SetTextStr(const Value: string); virtual;
  public
    constructor Create;
    destructor Destroy; override;
    function Add(const S: string): Integer; override;
    procedure Clear; override;
    procedure Delete(Index: Integer); override;
    procedure Exchange(Index1, Index2: Integer); override;
    function Find(const S: string; var Index: Integer): Boolean; virtual;
    function IndexOf(const S: string): Integer; override;
    procedure Insert(Index: Integer; const S: string); override;
  end;

в данном классе перегружены все основные методы которые у меня используются разными потоками, вот один их них:

function TSynchronizeStringList.Add(const S: string): Integer;
begin
  Self.FCriticalSection.Enter;
  Result:=inherited;
  Self.FCriticalSection.Leave;
end;

Вопрос состоит в следующем: можно ли как-то создать подобный класс на основе дженерика(чтобы могли наследоватся от любого класса), или не дженерика если есть варианты лучше, и чтобы тот мог оборачивать всё в критическую секцию/мьютекс/семафор(одиночный) для создания потоко-безопасного обращения.

[Pavia]

Сообщение от Winexcel

Без описания каждого конкретного класса?

Нет, такое не реально.

А почему бы не взять готовую библиотеку? OmniThreadLibrary много готового.
Или написать простой парсер и генератор который поможет вам на генерировать нужные классы.