Skript

const

 fromCol=2;                  

 fromRow=4;

procedure OnBeforeReport(Sender : TReportProperty);

var

 i,r : integer;

 Chart : TDBChart;                                                

begin

 r:=0;i:=0;            

 // load data

 BDEQuery1.Query.Open;

 while Not(BDEQuery1.Query.Eof) do

 begin    

   Sheet.Cells[fromCol+i,fromRow+r  ]:=BDEQuery1.Query.FieldbyName('jmeno').AsString;

   Sheet.Cells[fromCol+i,fromRow+r+1]:=BDEQuery1.Query.FieldbyName('pocet').AsString;        

   inc(i);

   if i>9 then

   begin

     inc(r,3);

     i:=0;

   end;

   BDEQuery1.Query.Next;  

 end;

 Chart:=TDbChart(Sheet['B12'].CellComponent);      

 with TLineSeries(Chart.SeriesList[0]) do          

 begin

   DataSource:=BDEQuery1.Query;

   XLabelsSource:=BDEQuery1.Query.Fields[0].FieldName;

   YValues.ValueSource:=BDEQuery1.Query.Fields[1].FieldName;                            

 end;                          

end;

begin

end.