[fofka]

Доброго дня!
Подскажите как можно проконтролировать количество внесенных знаков в Memo. Я пробовал таким методом, с пуском таймера, не работает. Может подскажите метод попроще?!

procedure TForm2.Memo1Click(Sender: TObject);///Пуск таймера
 begin
 MemControl1;
 end;

procedure TForm2.MemControl1;
 begin
 If Memo1.MaxLength > 1860
 Then MessageBox(handle,PChar('Внесенные данные не умещаются на листе. '+#13#10), PChar('Информация'), 48);
 end;