Как в Делфи заставить выполняться действие пока зажата кнопка на форме?

Юзай тип кнопок BitBTn там можно выставить, чтоб кнопка была вдавлена прищелчке по ней и при повторном щелчке отдавливалась

OnMouseDown