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

[Shouldercannon]

Пытался сделать ограничение на вставку текста в Memo1 если оно больше 300 символов. Получилось но не очень.
Возникшие проблемы:
1. Иногда ругается на текст в котором 4 символа
2. Если скопировать в Memo2 тест откуда-нибудь (количество символов 10000) то оно свободно проходит
3. Если текст помещать с помощью Enter, то после подтверждения ошибки и новго нажатия на Enter каретка переходит на следующую строку.

[Sazary]

Вот что накатал:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var s,buf : string;
len,buflen : longint;
p : longint;
begin
if ((Key = ord('V')) and (ssCtrl in Shift)) then
 begin
 if Clipboard.HasFormat(CF_TEXT) then
  begin
  s := Memo1.Text;
  buf := Clipboard.AsText;
  p := Memo1.SelStart;
  len := length(s);
  Clipboard.AsText := copy(buf,1,300-len);
  end;
 key := 0;
 end;

end;

Вставляется из буфера ровно столько, сколько не хватает до 300.

[Stilet]

А не проще выставить для Мемо MaxLength?

[Sazary]

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

А не проще выставить для Мемо MaxLength?

Действительно ) Что-то забыл про него..