22 emf files to a new pdf

 

How can I convert 22 emf files (every emf = one pdf page), to a pdf. Have checked out this delphi code, but I get a corrupt pdf file.

 

***********************************************************

procedure TForm1.Button1Click(Sender: TObject);
var
FileName: string;
ImageID: Integer;
ImWidth: Integer;
ImHeight: Integer;
PDFLibrary : TQuickPDF0719;
UnlockResult : Integer;
Filepath : string;
I : integer;

begin

PDFLibrary := TQuickPDF0719.Create;
  try
    UnlockResult := PDFLibrary.UnlockKey('*********');
    if UnlockResult = 1 then
    begin
      //Now we wil add 22 pages to the document for the 22 emf's
      PDFlibrary.InsertPages(0, 21);
      Filepath := 'Z:\test\';

      for I := 1 to 22 do begin

        if i < 10 then begin
          FileName := 'Z:\test\0005000'+IntToStr(i)+'.EMF';
        end
        else begin
          FileName := 'Z:\test\000500'+IntToStr(i)+'.EMF';
        end;

        PDFLibrary.SelectPage(i-1);
        ImageID := PDFLibrary.ImportEMFFromFile(FileName, 1, 0);
        PDFLibrary.SelectImage(ImageID);
        ImWidth := PDFLibrary.ImageWidth();
        ImHeight := PDFLibrary.ImageHeight();
        PDFLibrary.DrawImage(0, ImHeight, ImWidth, ImHeight);
        PDFLibrary.SetPageDimensions(ImWidth, ImHeight);

      end;

      PDFLibrary.SaveToFile('Z:\test\test.PDF')
    end;
  finally
    PDFLibrary.Free;
  end;

end;

************************************************************

Thanks for help!

 

kalypso