我有一个在 Delphi /VCL下稳定的小程序。我重新创建了一个FireMonkey应用程序，虽然它运行，但使用的内存不断增加，直到应用程序变得没有React和崩溃。
我有一个Indy TIdUDPServer接收SysLog消息。使用OnUDPRead事件处理程序，我将AData复制到String，并调用另一个过程，该过程解析字符串并将结果输出到TListBox（并发送到数据库，尽管为了清楚起见，我删除了该函数）。
我认为问题可能是由于从事件处理程序调用String处理例程，该事件处理程序在工作线程中运行，然后将项目添加到TListBox。
作为一个测试，我尝试通过在事件处理程序中设置一个全局“flag”为true，并使用一个计时器来将事件处理程序从后续操作中分离出来，查找该标志，如果设置了该标志，则调用处理例程，这样Indy事件处理程序就不会访问任何UI组件。但是，内存仍然会增长。
为什么这个程序在作为VCL项目运行时可以正常工作，而在FMX中却不行？
如何避免FMX？中的内存增长问题？

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
  IP := ABinding.PeerIP;   // global string
  SysMsg := BytesToString(AData);// global string
  DataAvailable := True;    //   global semaphore variable
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if DataAvailable then
  begin
    DataAvailable := False;
    ProcessMessage(IP, SysMsg);
  end;
end;

procedure TForm1.ProcessMessage(IP, SysLogMsg: String);
begin
  //  Dissect Syslog string
  //  Add Items to listbox
  //  Post items to Database using FDCOnnection, FDQuery   (problem remains with this removed)
end;