Tabs e Imagelist

[yusnerqui]

Se que esto se puede depurar, pero es hora de almuerzo, y ya no pienso muy bien

Código Delphi [-]
 Const
    ImgActiv = 4;
procedure TForm1.TabControl1Change(Sender: TObject);
begin
  ImageList1.Move(ImgActiv,TabControl1.TabIndex);
  ImageList1.Move(TabControl1.TabIndex+1,ImgActiv);
end;
procedure TForm1.TabControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  ImageList1.Move(TabControl1.TabIndex,ImgActiv);
  ImageList1.Move(ImgActiv-1, TabControl1.TabIndex);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageList1.Move(ImgActiv,TabControl1.TabIndex);
  ImageList1.Move(TabControl1.TabIndex+1,ImgActiv);
end;

Saludos