Отображение информации о количестве страниц и номера текущей страницы в делфи
 

Здравствуйте! Я пишу текстовый редактор в делфи и не знаю как найти количество страниц текста в ричэдите(или мемо) и номер текущей страницы, где расположен курсор, к примеру. Там вроде как надо находить длину текста, находяшийся в мемо, в пикселях и делить на размер листа А4 в пикселях, это чтобы узнать кол-во страниц. А как найти номер текущей страницы я вобще не знаю.
Вот так я написал, но это не работает в процедуре таймера.
size:=Canvas.Texthight(MEmo1.Text)div 50;
statusBar1.Panels[5].text:='Стр '+ floattostr(size);
Подскажите, пожалуйста, заранее благодарен! И если можно поподробней.

советую посчитать кол-во строк в ворде например сколько можно вписать в лист и посчитать сколько строк в ричэдите потом просто целочисленно разделить на кол-во строк в ворде...

этим способом придется учитывать шрифт