Ilość znaków w „TMemo”

Witam
Mam takie pytanie jak zrobić że gdy w „Memo” będzie więcej niż 100 znaków w tedy pojawia się wiadomość typu: ShowMessage(‘Memo jest pełne’);

OnKeyPress

If ... Then

Length(Memo1.Text)

ShowMessage('Memo jest pełne')

a teraz ja mam do ciebie pytanie
"czym sie różni dział Delphi/Pascal od Newbie?"

procedure TForm1.Memo1Change(Sender: TObject);
begin
     if Length(Memo1.Text) > 100 then Showmessage('Jest 100 znaków w memo');
end;

MASAKRA [rotfl]

Dlaczego ludzie nawet nie próbują rozwiązywać TAK BANALNYCH problemów sami? :( Za czasów, kiedy internet nie był tak powszechny było zupełnie inaczej - lepiej.

Z internetem niby łatwiej a im dalej nie chce się szukać, ani myśleć tylko czekają aż im ktoś odpowie. [rotfl] [glowa]

to skoro RedbaK napisal juz rozwiazanie to ja tez napisze:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin

 if Length(Memo1.Text) >= 100 then
  begin
   Key := #0;
   ShowMessage('Memo jest pełne');
  end;

end;