Рукописный компонент-кнопка

[NoName_emaNoN]

Всем привет! Написал компонент-кнопку, 4 состояний: Нажатая, Активная, Обычная, Недоступная. В качестве состояний взял картинки. Исходник во вложении.

Использую её на второй форме приложения. Форма открывается модально.

Проблема: Когда выполняется код:

while not InstallStart do
begin
sleep(100);
FormStart.Update;
Application.ProcessMessages;
if FormStart.ModalResult = mrCancel then
Exit;
end;

Кнопка не реагирует на MouseEnter и MouseLeave.
Что делать, где ошибка, может кто-нибудь додумается? Или как реализовать по другому?