Думал, что проблема решена, ан нет... Проблема заключается в строке:
Код:
RE.Height:=Trunc(screen.Pixelsperinch*fr.rc.bottom/1440)+8;
В первом проходе для fr.rc.bottom возвращается значение 195 после чего все остальное работает так как и должно. При втором проходе значение не возвращается и идет нарастание высоты ячейки. Ничего не могу понять. Объясните пожалуйста, что не так