Тормоза при изменении цвета Delphi

[S_007]

При нажатии мышкой на панель изменяет цвет - первое нажатие становится черной, второе нажатие становится белой, короче как переключатель, но вопрос - почему реагирует не на каждое нажатие мыши, получается кликнул, надо чуть подождать, потом второй раз, а если быстро кликать то получаются пропуски нажатий... Почему так? Как будто сильно тормозит приложение, что не успевает все клики отрабатывать. Подскажите может как то по другому надо код реализовать, чтоб быстро все работало

procedure TForm2.pnl1Click(Sender: TObject);
begin
if pnl1.Color = clBlack  then
begin
  pnl1.Color := clCaptionText;
  pnl1.Font.Color := clBlack;
end
else
begin
  pnl1.Color := clBlack;
  pnl1.Font.Color := clCaptionText;
end;
end;

[Аватар]

Потому что при двойном клике OnClick отрабатывает только раз. Уменьши интервал SetDoubleClickTime например до 100 и полюбуйся. Не забудь восстановить старое значение (для чтения GetDoubleClickTime)

PS

с SetDoubleClickTime конечно шутка, просто добавь OnDblClick

procedure TForm1.pnl1DblClick(Sender: TObject);
begin
  pnl1Click(Sender);
end;

[S_007]

двойное нажатие исключено, просто - одиночное быстрое нажатие, экспериментировал с кнопкой при нажатии меняется текст на кнопке, всё быстро работает а с изменением цвета панели засада, да не только с панелью этот же код пробовал и с label, всё так же медленно переключается

но всё равно благодарен за ответ

может ещё есть какие варианты
Спасибо