Код:
Label1.Caption:=IntToStr(Length(Memo1.Text));
Переход на следущую строку (нажатие Enter) считается за 2 знака (#13 #10)
Так узнать их, а запретить Просто: проверка сколько их есть и сколько можно внести, хоть в событии onChange...
Тут как вы хотите (сообщение вылетает, только знак все равно вводится):
Код:
procedure TForm1.Memo1Change(Sender: TObject);
begin
if Length(Memo1.Text)>=64 then
MessageBox(handle,PChar('Внесенные данные не умещаются на листе. '+#13#10), PChar('Информация'), 48);
end;