contar caracteres

[Cosgaya]

como puedo contar caracteres de un memo y pasarlos a un label o algo por el estilo.

[Casimiro Noteví]

por ejemplo

 procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift:TShiftState);
 begin
 	label1.caption := inttostr(length(memo1.Text))
 end;