var Ikona1:Boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Ikona1=false then
begin
Application.icon:=Image1.Picture.Icon;
Ikona1:=true;
end
else
begin
Application.icon:=Image2.Picture.Icon;
Ikona1:=false;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Ikona1:=true;
end;
Proměnná Ikona1 slouží pouze k identifikaci, která z ikon je momentálně zobrazena a lze samozřejmě použít i jiné řešení v závislosti na počtu použitých ikon. Nyní již stačí nastavit jen vhodný časový interval Timeru a malá animace je hotova.