windows-mobile - Windows Mobile 6.1 上的 TMemo 问题

Question

我正在为 Windows Mobile 编写一个非常简单的终端应用程序。它打开一个串行端口，并将任何数据转储到TMemo. 该应用程序在 Windows Mobile 5 上运行良好，但在 Windows Mobile 6.1 上，备忘录的行为很奇怪。大约 100 个字符后，备忘录中不再添加文本，并且它不会自行绘制（例如，如果我打开开始菜单并关闭它，文本不再显示）。我在一个简单的应用程序中使用了这段代码，它重现了这个问题。有什么想法吗？

procedure TForm1.Button1Cick(Sender: TObject);
begin
  while not Application.Terminated do
  begin
    mmPort.Text := mmPort.Text + Chr(Random(90) + 32);
    if Random > 0.9 then
      Application.ProcessMessages;
  end;
end;