RichEdit1に500kbくらいの文字列を貼り付けて
以下のような処理をしようと思ったのですが
固まってしまいます。RichEditで処理できる文字数に制限ってあるのでしょうか？
また解決策などありましたら、教えていただけないでしょうか。

for i := RichEdit1.Lines.Count - 1 downto 0 do
begin
if RichEdit1.Lines[i] = '' then
RichEdit1.Lines.Delete(i);
end;