wie wärs wenn du es dir einfach machst und einfach noch n label auf deine form ballerst un dan das eingibst:
label1.Caption:= inttostr(Memo1.Lines.Count)
ist doch das was du willst oder??
P.S. wenn du das in nen timer machst wirds sogar regelmäßig geupdatet