Animacja w delphi

Witam,

Mam program, w którym zmienia się położenie planet po kliknięciu w komponencie MonthCalendar na odpowiedni dzień. Chciałbym napisać funkcję, która umożliwiła by aby po kliknięciu na buttona planety zmieniały położenie o 1 dzień, czyli żeby ta funkcja "klikała" w kolejny dzień na MonthCalendar. Jakieś wskazówki?

pętla

Wiem, tylko co wpisać po DO żeby zmieniał zaznaczenie danego dnia w MONTHCALENDAR'rze?

http://msdn.microsoft.com/en-us/library/system.windows.forms.monthcalendar.aspx
Metoda SetDate()