[Casimiro Notevi]

por ejemplo

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