Ограничение количества символов в Richviewedit

[Shouldercannon]

У RichViewEdit есть свойство MaxLength, оно ограничевает количество символов для текущей строки. Как сделать общее ограничение, если количество символов = 100, то дальше текст вводить нельзя, ну или событие на кнопке

ShowMessage('Длина сообщения превышает 100 символов');

[MaxNik2009]

if Length(RichEdit1.Text) > 100 then
    ShowMessage('Длина сообщения превышает 100 символов');

[Kotofff]

Я же приводил код подсчета символов ...

[Shouldercannon]

Сообщение от Kotofff

Я же приводил код подсчета символов ...

Процедура оказалась очень громоздкой и не подсчитывала количество символов, занимаемое при переходе на новую строку при помощи Ctrl + Enter
Вот

procedure TForm1.RichViewEdit1Change(Sender: TObject);
begin
r := RichViewEdit1.GetTextLen; //Подсчёт количества символов в RVE
  Label1.Caption := IntToStr(r); //Вывод количества в Label1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if r > 100 then //Если r > 100 тогда оповещаем об этом
  ShowMessage('Длина сообщения превышает 100 символов');
end;