je sais pas si y'a moyen d'avoir direct mais sinon tu peux utiliser
memo->Lines->Count; pour avoir le nombre de lignes
memo->Lines->GetText; pour avoir un char* (ou memo->Lines->Text; pour un AnsiString)
apres t'as pu qu'a faire un bouclette pour compter 
---------------
Fleur de métal, entité invulnérable, vêtue tant bien que mal, d'une muraille inébranlable...