mORMot Open Source

var
  Meta: TMetafile;
  PDFPage: TPdfPage;
  i: integer;
  bmp      : TBitmap;
begin
  chart1.BevelOuter:= bvNone;
  for i:= 0 to chart1.SeriesCount - 1 do
    chart1.Series[i].FillSampleValues(1000);

 with TPdfDocumentGDI.Create do
  begin
    PDFPage:= AddPage;
    PdfPage.PageLandscape:= false;
    PdfPage.PageWidth:= 595;
    PdfPage.PageHeight:= 842;
    chart1.Width:= PDFPage.PageWidth;
    chart1.Height:= PDFPage.PageHeight;

    Meta:= Chart1.TeeCreateMetafile(true, Rect(0, 0, PDFPage.PageWidth, PDFPage.PageHeight));
    VCLCanvas.StretchDraw(Rect(0, 0, PDFPage.PageWidth, PDFPage.PageHeight), Meta);

    bmp      := TBitmap.Create;
    bmp.Width := PdfPage.PageWidth;
    bmp.Height:= PdfPage.PageHeight;
    bmp.Canvas.StretchDraw(Rect(0, 0, PDFPage.PageWidth, PDFPage.PageHeight), Meta);

    SaveToFile('c:\test.pdf');
    bmp.SaveToFile('c:\test.bmp');

    Meta.Free;
    bmp.Free;
    Free;
  end;
end;