Delphi: Jak utworzyć globalny TList Thread Safe?

Question

Jak utworzyć globalny TList Thread Safe?

unit Unit1; 
interface 
uses 
    ...; 
type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 
    global_TList: TList; // Not thread safe? 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
// something 
end; 

end. 

Mam dwa wątki, które mogą pisać do global_TList, ale jak wiem, to nie jest wątek bezpieczny.

Jak to zrobić, aby był bezpieczny?

Delphi 2010 Indy 10, Win7

Answer 1

Zastosowanie TThreadList. Problem rozwiązany.