Проблема с увеличением ширины изображений в TImageList Опции

[1147]

В TImageList первоначально задал widh:=256, (в TImageList 4 картинки. Используются для вкладок TpageControl) через некоторое время потребовалось увеличить widh до 285. Увеличиваю, запускаю компиляцию и все зависает. В чем здесь может быть проблема? есть ли всетаки способ увеличить ширину картинок в TImageList? Если нет, то нет ли другого компонента, который мог бы заменить TImageList для этой цели?
Код программы здесь нипричем. Гдето читал что именно сам TImageList вызывает зависание

[volvo]

procedure TForm1.FormCreate(Sender: TObject);
var
  bm: TBitmap;
  i: integer;
const
  path: AnsiString = 'C:\Images\';
begin
  myImageList := TImageList.CreateSize(285, 16);
  with myImageList do
  begin
    for i := 1 to 4 do
    begin
      bm := TBitmap.Create;
      bm.LoadFromFile(Format('%sp0%d.bmp', [path, i]));
      Add(bm, nil);
      bm.free;
    end;
  end;
  PageControl1.Images := myImageList;
end;

Проверил, все картинки разные, как и положено.