unit Unit13;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, Grids,
 DBGrids, DB, DBClient, StdCtrls, comobj, PowerPointXP, OleServer, ExtDlgs;

type
 TForm13 = class(TForm)
   DBChart1: TDBChart;
   Series1: TPieSeries;
   DBGrid2: TDBGrid;
   ClientDataSet2: TClientDataSet;
   DataSource2: TDataSource;
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);

 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
var PPT,Presentation,CurrentSlide,ShapeText,ShapeLabel:variant;
  Bmp: TBitmap;
begin

   PPT:=CreateOleObject('PowerPoint.Application');
   Presentation:=PPT.Presentations.add;
   CurrentSlide:=Presentation.Slides.Add(1, 12);

   ShapeLabel:=CurrentSlide.Shapes.AddLabel(1, 40, 40,400, 100);
   ShapeLabel.TextFrame.TextRange.Text:='Niioiioaiea ?aineiai e io?neiai ia?niiaea';
      PPT.AddPicture('d:\image.gif').Select
PPT.Selection.Unselect

  end;

procedure TForm13.Button2Click(Sender: TObject);
 var Bmp: TBitmap;
begin
Bmp:=TBitmap.Create;
DBChart1.Draw(Bmp.Canvas,Rect(0,0,DBChart1.Width,DBChart1.Height));
DBChart1.SaveToBitmapFile('d:\image.gif');
end;
end.