function TdlgOutTemplateCreate.ConvertBitmatToEMF(ABMP: TBitmap): String;
var
  MF: TMetafile;
  MFCanvas: TMetafileCanvas;
  aHDC: HDC;
  MS: TMemoryStream;
  hexpict: String;
  i: Integer;
  B: Byte;
begin
  try
    hexpict := '';
    MF := TMetafile.Create;
    MF.Width := ABMP.Width;
    MF.Height := ABMP.Height;

    aHDC := CreateDC('DISPLAY', nil, nil, nil); 
    SetMapMode(aHDC, MM_TWIPS); //думал это как то поможет, но нет, рисунок огромный в документе

    MFCanvas := TMetafileCanvas.Create(MF, aHDC);
    try
      MFCanvas.Draw(0,0,ABMP);
    finally
      MFCanvas.Free;
    end;
    MF.Inch := 1200;

    MS := TMemoryStream.Create;
    MF.SaveToStream(MS);

    MS.Position := 0;

    for i := 0 to MS.Size-1 do
    begin
      MS.Read(B,1);
      hexpict := hexpict + IntToHex(Integer(B), 2);
    end;

    Result := '{\pict\emfblip '+hexpict+'}';

  finally
    MS.Position := 0;
//    MS.SaveToFile(ExtractFileDir(ParamStr(0))+'\test.emf');

    FreeAndNil(MF);
    FreeAndNil(MS);
  end;
end;

function TdlgOutTemplateCreate.ConvertBitmatToEMF(ABMP: TBitmap; AScale: Integer): String;
var
  MF: TMetafile;
  MFCanvas: TMetafileCanvas;
  aHDC: HDC;
  MS: TMemoryStream;
  hexpict,S: String;
  i: Integer;
  B: Byte;
begin
  try
    hexpict := '';
    MF := TMetafile.Create;
    MF.Width := ABMP.Width;
    MF.Height := ABMP.Height;
    MF.Enhanced := True;

    aHDC := CreateDC('DISPLAY', nil, nil, nil);

    MFCanvas := TMetafileCanvas.Create(MF, aHDC);
    try
      MFCanvas.Draw(0,0,ABMP);
    finally
      MFCanvas.Free;
    end;
    MS := TMemoryStream.Create;
    MF.SaveToStream(MS);

    MS.Position := 0;

    for i := 0 to MS.Size-1 do
    begin
      MS.Read(B,1);
      hexpict := hexpict + IntToHex(Integer(B), 2);
    end;

    S := ''; if not (AScale in [0,100]) then S := '\picscalex'+IntToStr(AScale)+'\picscaley'+IntToStr(AScale);

    Result := '{\pict'+S+'\emfblip '+hexpict+'}';

  finally
    MS.Position := 0;
    FreeAndNil(MF);
    FreeAndNil(MS);
  end;
end;

//возвращает готовый тег для вставки картинки в текст как отдельного абзаца