TMemo 最大宽度

有没有办法让TMemo将超过1024的文本显示为1行？
看看这个简单的代码：

procedure TForm1.Button2Click(Sender: TObject);
var
    s: string;
    i: integer;
begin
    s := '';
    for i := 0 to 10000 do
      s := s + 'a';

    Memo1.Clear;
    Memo1.Lines.Add(s);
end;

长文本“s”将分多行显示。 Memo1 将在 1024 个字符后自动换行。

TMemo 是本机多行编辑控件的包装器，并且受到其限制。从信息：多行编辑控件的大小限制:

多行编辑控件还受到以下限制：

• 单行最大字符数为 1024。
• 线条的最大宽度为 30,000 像素。
• 最大行数约为 16,350 行。