procedure TForm1.FormCreate(Sender:TObject);
begin
ico:=TIcon.Create;
icoIndex:=0;
Timer1.OnTimer(Timer1);
end;
procedure TForm1.Timer1Timer(Sender:TObject);
begin
if icoIndex:=0 then
icoIndex:=1
else
icoIndex:=0
ImageList.GetIcon(icoIndex,Ico);
Application.Icon:=ico;
end;