Простая математическая функция (срочно)

Необходимо срочно сделать на Delphi достаточно простую функцию.

Итак, имеется прямоугольник, заданный в прямоугольной системе координат (см. вложение). Его поворачивают на определённый угол со смещением как показано на рисунке.

Даны размеры прямоугольника, угол поворота (вещественное число) и координаты некой точки M на этом прямоугольнике. Нужно найти координаты этой точки после поворота. Отсчёт координат от верхнего левого угла.