[angvelem]

Как то так:

Код:

type
  TTabImage = record
    page  : TTabSheet;
    image : TImage;
  end;

var
  TabImage : array of TTabImage;

procedure создать_в_новой_вкладке;
begin
  SetLength(TabImage, Length(TabImage) + 1);
  TabImage[Length(TabImage - 1)].page := TTabSheet.Create(pagecontrol1);
  TabImage[Length(TabImage - 1)].page.PageControl := pagecontrol1;
  TabImage[Length(TabImage - 1)].page.Caption := format('Без имени - '+'%d', [pagecontrol1.PageCount]);
  pagecontrol1.ActivePage := TabImage[Length(TabImage - 1)].page;
  TabImage[Length(TabImage - 1)].Image := TImage.Create(TabImage[Length(TabImage - 1)].page);
  TabImage[Length(TabImage - 1)].Image.parent := TabImage[Length(TabImage - 1)].page;
end;

Ну и потребуется добавить проверку на удаление страниц.
Лучше, конечно, для этого использовать TList.

Опоздал чуток.