How To Make An Animated Application Icon

var
 icon1:Boolean;


...


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

procedure TForm1.FormCreate(Sender: TObject);
begin
  icon1:=true;
end;