var m:tmetafile;
    t:tmetafilecanvas;
    bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('Здесь укажите путь');

  M:= TMetafile.Create;
  M.Width:=2000; M.Height:=1000;  // размеры картинки в пикселях
  t:=tmetafilecanvas.create(M,0);
  with t do
    begin
     Draw(2000, 1000, bmp);

      pen.color:=rgb(0,255,0); // зеленый цвет
      MoveTo(20,10);LineTo(70,70); // рисуем линию этим цветом

      font.name:='Tahoma';
      font.size:=12;
      font.style:=[fsBold];
      font.color:=rgb(0,96,96); // темно-бирюзовый
      TextOut(5,20,'Hello digital world!');  // выводим надпись

      brush.color:=rgb(255,255,0); // желтый
      Ellipse(100,55,195,95);     // желтый эллипс с зеленой каймой

    end;
  t.free;
  m.savetofile('test.wmf'); // сохряняем результат в файл