Index: picturemanager.pas
===================================================================
--- picturemanager.pas	(revision 179)
+++ picturemanager.pas	(working copy)
@@ -242,7 +242,15 @@
   begin
     Icon := TIcon.Create;
     try
+      // First image in std bitmap
       Icon.LoadFromFile(FileName);
+      NewPage := CreatePage(Icon as TBitmap);
+      NewPage.Parent := Self;
+      ActivePage := NewPage;
+      NewPage.Caption := FindNewUniqueName;
+      Change;
+      // other image in Bimaps if assigned
+      if assigned(Icon.Bitmaps) then
       for I := 0 to Pred(Icon.Bitmaps.Count) do
       begin
         NewPage := CreatePage(Icon.Bitmaps[I] as TBitmap);