Delphi-Quellcode:
//if Length(RichEdit1.Text) >= 65536 div SizeOf(Char) then ...
if Length(RichEdit1.Text) >= 32768 then ...
oder
if Length(RichEdit1.Lines.Text) >= 32768 then ...
jenachdem wo die Format-Informationen mit enthalten sind.
Man könnte auch über SeltStart oder über GetTextLength arbeiten, oder über die entsprechende SendMessage-Message dafür.