Создать объект типа Picture с использованием картинки из ресурсов / преобразовать тип Image к Picture

constructor Picture.Create(fname: string; [U] rm: ReadMethod[/U]);
var
  tmp: Image;
  fs: System.IO.FileStream;
begin
  try
    [U]if rm = Stream Then
      tmp := Image.FromStream(GetResourceStream(fname))[/U]
    else begin
      fs := new System.IO.FileStream(fname, System.IO.FileMode.Open);
      tmp := Image.FromStream(fs);
    end;
    bmp := new Bitmap(tmp);
    if rm = Files Then
    begin
      fs.Flush;
      fs.Close;
    end;
    tmp.Dispose;
  except on ex: System.ArgumentException do
    raise new System.IO.FileNotFoundException(string.Format(FILE_NOT_FOUND_MESSAGE,fname));
  end;
   
  gb := Graphics.FromImage(bmp);  //!!!
  transpcolor := bmp.GetPixel(0,bmp.Height-1);
  istransp := false;
  savedbmp := nil;
end;

  private
    bmp,savedbmp: Bitmap;

public

{$resource 'Векторная.jpg'}//эта строка говорит компилятору что эту картинку тоже надо компелировать;
//После компеляции картинка будет внутри exe файла;
uses GraphABC,System.Drawing;
//Чтобы обратится к этой картинке в коде программы потребуется переменная типа Bitmap;
//Тип Bitmap есть в модуле System.Drawing;
var bm:Bitmap;
begin
// Cоздаёт картинку из ресурса программы и присваивает её переменной bm;
bm:= new bitmap(image.FromStream(GetResourceStream('Векторная.jpg')));//Пользуемся картинкой!!!
//GraphWindowGraphics.DrawImage(bm,0,0); //так можно вывести картинку (Bitmap) на экран;
//--------------------------------------------------------------------------------------
//В GraphABC Bitmap почти нигде не используется, значит далее создаём переменную (Picture);
var p:Picture;
//Обычного конструктора по созданию Picture из Bitmap нету, придётся использовать инструменты у Picture;
//Для этого создаём пустую p(Picture) с размерами bm(Bitmap);
p:= new Picture(bm.Width,bm.Height);
//Помещаем в неё картинку копированную из bm(Bitmap);
p.CopyRect(new System.Drawing.Rectangle(0,0,p.Width,p.Height),bm,new System.Drawing.Rectangle(0,0,p.Width,p.Height));
p.Draw;//Пользуемся картинкой!!!
end.