animated application icon

var
theicon : boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
theicon := not theicon;
case theicon of
True: Application.icon := Image1.Picture.Icon;
False: Application.icon := Image2.Picture.Icon;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
theicon := True;
Timer1.Enabled := true;
end;