delphi - TMemo 最大幅

Question

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 文字の後にテキストを自動的に折り返します。