Gracias quedo bien asi!!, lo hice div 5 sino me separaba de hoja y autosize..
Código Delphi
[-]
procedure Bitmap2Pdf(const BitmapPath, OutputPDFPath: string);
var
BMP: TBitmap;
PDF: TGDIPages;
begin
BMP := TBitmap.Create();
PDF := TGDIPages.Create(nil);
try
PDF.BeginDoc();
BMP.LoadFromFile(BitmapPath);
PDF.DrawBMP(BMP, 0, BMP.Width div 5);
Pdf.AutoSize := True;
PDF.ExportPDFForceJPEGCompression := 80;
PDF.EndDoc();
PDF.ExportPDF(OutputPDFPath,False, False);
finally
BMP.Free();
PDF.Free();
end;
end;