[SpectraL]

Почему после перемещения ползунка компонента TTrackBar событие OnChange выполняется 3 раза?

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ShowMessage('yes') // выполнится 3 раза
end;