Delphi: ¿Cómo crear un TList global de Thread Safe?

Question

Cómo crear un TList global 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. 

que tienen dos hilos, que pueden escribir en global_TList, pero que yo sepa, no es seguro para subprocesos.

Así cómo hacer que sea seguro?

Delphi 2010, Indy 10, Win7

Answer 1

Uso TThreadList. Problema resuelto.