[fatima]

Так или не так? (это уже для открытия имеющегося изображения в новой вкладке)
Что-то у меня не так, потому что выдает ошибку и останавливает процесс.

Код:

procedure открыть_в_новой_вкладке;
var
  page: TTabSheet;
  f: TImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    CurrentFile := OpenPictureDialog1.FileName;
    SaveStyles;
    GetActiveImage.Picture.LoadFromFile(CurrentFile);
    //Image1.Picture.LoadFromFile(CurrentFile);
    RestoreStyles;
/////////////////// открытие в новой вкладке
page := TTabSheet.Create(pagecontrol1);
    page.PageControl := pagecontrol1;
    page.Caption := format('Без имени - '+'%d', [pagecontrol1.PageCount]);
    pagecontrol1.ActivePage := page;
    f := TImage.Create(page);
    f.parent:=Page;
    page.tag := Integer(f);
  end;
end;

Админ: Пользуемся тегами для оформления кода!