mostrar el cantidad maxima de caracteres en un memo
 

hola amigos del foro mi problema es el siguiente:
Tengo un memo con un maximo de de 200 caracteres pero me pidieron q a un extremo del memo me salga el total de caracteres (tal ves sea en un label) q tiene el memo y mientraas vaya escribiendo la cantidad vaya reduciendo ...
La verdad nose q evento utlizar??? ni como hacerlo.. que es lo q tengo q hacer?
Como siempre muchisimas gracias por la ayuda y sugerencias q me brinden

Hola,

A ver si algo así te da una idea por lo menos:

Código Delphi [-]
(*

  Se asume que en un formulario (Form1) hay un "TMemo"
  (Memo1) y un "TLabel" (Label1).

*)

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.MaxLength := 200;
  Label1.Caption := 'Escritos: 0 caracteres / Disponibles: 200 caracteres';
end;

procedure TForm1.Memo1Change(Sender: TObject);
resourcestring
  rsInformacion = 'Escritos: %d caracteres / Disponibles: %d caracteres';
var
  totalCaracteresEscritos,
  totalCaracteresDisponibles: integer;
begin
  totalCaracteresEscritos := Length(Memo1.Text);
  totalCaracteresDisponibles := Memo1.MaxLength - totalCaracteresEscritos;
  Label1.Caption := Format(rsInformacion, [totalCaracteresEscritos, totalCaracteresDisponibles]);
end;