uses
  AdvTypes;

procedure TForm1.LoadSVG;
begin
  Image1.Picture.LoadFromFile('nature.svg');
end;

uses
  AdvPDFLib, Types;

 procedure TForm1.Button1Click(Sender: TObject);
var
  p: TAdvPDFLib;
begin
  p := TAdvPDFLib.Create;
  try
    p.BeginDocument('SVGToPDF.pdf');
    p.NewPage;
    p.Graphics.DrawImageFromFile('nature.svg', RectF(50, 50, p.PageWidth - 50, 500));
    p.EndDocument(True);
  finally
    p.Free;
  end;
end;