Delphi: Nasıl bir iş parçacığı güvenli genel TList oluşturmak için?

Question

Bir iş parçacığı güvenli nasıl oluşturulur?

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. 

Ben global_TList yazabilir iki konuları, var, ama bildiğimiz gibi, bu iş parçacığı güvenli değil.

Peki nasıl güvenli hale getirilir?

Delphi 2010 Indy 10, Win7

Answer 1

Kullanım TThreadList. Sorun çözüldü.