multithreading - Delphi 从 TCPServer OnExecute、TThread 和 TTimer 异步写入 TListBox

Question

我有一个应用程序，我想将数据添加到一个名为 TListBox 的应用程序中，我想listMessages从TTimer一个 TCPServer 的事件以及从我自己创建的OnExecute几个事件中添加数据：TThreads

procedure TCPServerExecute(AContext: TIdContext);
begin
  listMessages.Items.Add('some data');
end;

procedure myTimerTimer(Sender: TObject);
begin
  listMessages.Items.Add('some data');
end;

procedure TThread.Execute;
begin
  inherited;
  listMessages.Items.Add('some data');
end;

所以我的问题是 - 我怎样才能实现这个线程安全？