mORMot Open Source

var
	page: TPdfPage;
	pdfImage: TPdfImage;
	jpeg: SynGdiPlus.TJpegImage;	
	pdfDoc: TPDFDocument;
begin
	pdfDoc := TPDFDocument.Create(false, 0, true, nil);		
	try
		pdfDoc.Info.CreationDate := Now;
		pdfDoc.DefaultPaperSize := psA4;		
	
		jpeg := SynGdiPlus.TJpegImage.Create;
		try
			jpeg.LoadFromFile(FileName);                
			pdfImage := TPdfImage.Create(APdfDocument, jpeg, true)
		finally
			jpeg.Free;
		end;
		
		page := APdfDocument.AddPage;
		APdfDocument.AddXObject(AName, pdfImage);
		APdfDocument.Canvas.DrawXObject(0, 0, page.PageWidth, page.PageHeight, AName);			
		pdfDoc.SaveToStream(AOutStream);
	finally
		pdfDoc.Free;
	end;
end;