Hat sich erledigt - wen es interessiert:
Delphi-Quellcode:
FPicture := TPicture.Create;
FPicture.Assign(jpg[i]);
AXObjectName := 'Page' + IntToStr(i);
AddXObject(AXObjectName, CreatePdfImage(FPicture.Graphic, 'Pdf-Jpeg'));
Canvas.DrawXObject(0, 0, PagesWidth, PagesHeight, AXObjectName);
FPicture.Free;