Windows mobile Windows Mobile 6.1上的TMemo问题

我正在为Windows Mobile编写一个非常简单的终端应用程序。它打开一个串行端口，并将任何数据转储到

TMemo

。该应用程序在WindowsMobile5上运行良好，但在WindowsMobile6.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;

---

现在没有任何Borland产品，但我会参与其中：旧项目可能已经将TMemo的

Multiline

属性设置为True（Multiline是Visual Studio中的名称）。检查新项目的属性。@jp2code

TMemo

在Delphi/Lazarus中没有

MultiLine

属性