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;