Jak zrobić ...?

Jak zrobić program, który wyświetlałby ilość wszystkich linii w Memo na Label np. W memo jest ? lini. ;(

pipek_dręczyciel pozdrawia

to wpisujemy np w procedurze OnChange komponentu Memo
Label1.Caption := 'W memo jest ' + IntToStr(Memo1.Lines.Count) + ' linii.';
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ lks16@tenbit.pl ]=-

Dzięki naprawdę tego mi było trzeba {brawo}
Może skoczymy na {browar} {browar}

pipek_dręczyciel pozdrawia