procedure TForm1.Button1Click(Sender: TObject);
Var
  Bmp: TBitmap;
  Pdf: TPdfDocument;
  Page: TPdfPage;
  Img: TPdfImage;
Begin
  Pdf := TPdfDocument.Create;
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('1.bmp');
  Page := Pdf.AddPage;
  Page.PageWidth := Bmp.Width;
  Page.PageHeight := Bmp.Height;
  Img := TPdfImage.Create(Pdf, Bmp, True);
  Pdf.AddXObject('', Img);
  Pdf.Canvas.DrawXObject(0, 0, Bmp.Width, Bmp.Height, '');
  Pdf.SaveToFile('1.pdf');
  FreeAndNil(Bmp);
  FreeAndNil(Pdf);
end;

 

uses SynPdf,jpeg;
procedure TForm2.Button2Click(Sender: TObject);
Var
  aJpg: TJPEGImage;
  Pdf: TPdfDocument;
  Page: TPdfPage;
  Img: TPdfImage;
Begin
  Pdf := TPdfDocument.Create;
  ajpg := TJPEGImage.Create;
  ajpg.LoadFromFile('2.jpg');
  Page := Pdf.AddPage;
  Page.PageWidth := ajpg.Width;
  Page.PageHeight := ajpg.Height;
  Img := TPdfImage.Create(Pdf, ajpg, True);
  Pdf.AddXObject('', Img);
  Pdf.Canvas.DrawXObject(0, 0, ajpg.Width, ajpg.Height, '');
  Pdf.SaveToFile('2.pdf');
 FreeAndNil(ajpg);
 FreeAndNil(Pdf);
end;