¿Cómo limitar la cantidad de carateres a escribir en un RichEdit?

[[seoane]]

¿Por que no usar la propiedad MaxLength?

[roman]

¡Vaya! Pues es cierto. Yo leí la pregunta y di por sentado que se buscaba una opción porque no existía esa propedad. Habré de fijarme mejor a la próxima.

// Saludos

[Alcolea]

Que fácil era y llevo dos días rompiéndome la cabeza por que esta sencillez es lo único que me está causando problemas en la aplicación que estoy de haciendo para mi tesis. De todas formas había logrado esto...

Código Delphi [-]
procedure TForm1.RichEdit1Change(Sender: TObject);
var
 a : char;
 n : integer;
begin

   if length(RichEdit1.Text) >= 513 then
   begin
    a := RichEdit1.Text[512];
    n := pos(a, RichEdit1.Text);
    RichEdit2.Text := MidBStr(RichEdit1.Text, 0,512 );
    RichEdit1.Clear;
    RichEdit1.Text := RichEdit2.Text
   end;

end;

...por si alguien siente curiosidad.

Gracias.