Limitar Caracteres en un Memo

[gabrielkc]

Quizá le falte perfeccionarlo pero sería algo así :

EN en evento KeyPress del memo poner:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
const MAX_LENGTH=15;
var Line:Integer;
begin
 Line := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
 if not (Key in [#13,#8]) then
  if Length(memo1.Lines[LPos])=MAX_LENGTH then
   Key:=#13
end;

No lo he calado........ pero se ve bien