Delphi: как найти площадь пересечения двух прямоугольников?

Бывает возникнет какая-нибудь простенькая задачка, наподобие заявленной в теме поста, а ты сидишь и тупишь в монитор полдня. Вот для таких случаев я, в свое

Читать на сайте автора.