Как перетащить форму без зацепа за заголовок (за любую часть формы) в Delphi

Перетаскиваем форму без зацепа за заголовок (за любую часть формы) в Delphi

Свойство BorderStyle  у формы устанавливается в bsNone, а это значит отсутствие рамки у формы, то есть отсутствие того за что ее можно перетаскивать мышкой. Как же быть, в таком случае — когда заголовок у формы отсутствует, а перетаскивать ее все-таки нужно?

1) Устанавливаем BorderStyle формы в bsNone;

2) Создаем обработчик событий FormMouseMove на форме и прописываем следующий код: