[angvelem]

Понятно, вот ошибка:

Код:

 aRect := Rect(40, 40, 50, 50);

размер aRect-а первоначально должен быть заведомо больше нужного, при измерении с флагом DT_CALCRECT он не может увеличиваться - только уменьшается. Что то вроде такого:

Код:

 aRect := Rect(40, 40, 550, 250);