★RichEdit と '×'

[Delphi 7]
フォームにTButtonとTRichEditを貼り付けて、次の処理を記述します。

procedure TForm1.Button1Click(Sender: TObject);
const
　S = '×';
begin
　RichEdit1.Lines.Add(S);
end;

これを実行すると次のメッセージのようなエラーになります。 RichEdit での行の挿入エラー

× の前か後ろに全角の文字を組み合わせるとエラーにならないのですが、エディターにそのような制限をするのは不適切でしょうし、具体的な解決方法を見つけられずにいます。

※Windows 2000 Pro(SP3) でもWindows XP Pro(SP2) でも同じ結果でした。
※Delphi8では、問題なく実行できます。（DLLが違うでしょうし、当たり前かな？）