Ruchome obiekty

Cześć.
Jestem nowy tu i w programowaniu ;)
Jest jakaś możliwość dodania do aplikacji ruchomego obiektu ?? tzn. jest przycisk 1 i jak najedzie się na niego myszką to zrobi się taka animacja... takie coś jest w pasku windows'owym ikona menu start
Bardzo mi zależy to wtedy aplikacja będzie taka (nowoczesna) ;)

Rozwiążań jest wręcz cała masa. Można coś samodzielnie rysować na Canvasie. Ale chyba najprościej bez kombinowania to będzie użyć przygotowanego przez siebie albo gotowego animowanego Gif'a. Do tego posta dołączyłem spakowany odpowiedni moduł, który sprawia że starsze Delphi (ja używam 7 Personal) obsługują w TImage również gify i to animowane. Pobrałem z http://www.e-gify.com jakiś przykładowy gif i wszystko działa jak należy. Oczywiście obrazek nie trzeba ładowac z dysku, można go załadować z zasobów wkopilowanych w exe. Więcej na ten temat sobie wygoogluj, bo przykładów na sieci jest mnóstwo.

//...
uses
  ExtCtrls, gifimage;

procedure TForm1.FormCreate(Sender: TObject);
var
  Img : TImage;
begin
  Img := TImage.Create(Self);
  Img.Parent := Self;
  Img.Stretch := True;
  Img.Align := alClient;
  Img.Picture.LoadFromFile('D:\2056.gif');
end;