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

[Shouldercannon]

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

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

 

[Shouldercannon]

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;

 

[Shouldercannon]

sax_ol
Собственно вот

if r > 100 then //Если r > 100 тогда оповещаем об этом

оно конечно не запрещает вводить текст дальше, но и не пропустит его, пока не будет сокращено до нужного количества.