[ramonibk]

Conseguido......
Bueno tras estar buscando informacion sobre el tema encontre un manual que espero que os sirva.

Aquí dejo el codigo nas completo.

Código Delphi [-]
Var
 Grafica: tchart;
 Solapa:ttabsheet;
 SerieBarras:TBarSeries; //Aquí esta el Sistema.
begin
     Solapa:=ttabsheet.Create(self);
     with Solapa do
       begin
        PageControl:=PageControl1;
        Caption := 'Nombre ' + IntToStr(i);
       end;

     Grafica:=tchart.Create(self);
     With  Grafica do
      Begin
       Grafica.Parent:=Solapa;
       Grafica.Name := Solapa.Name;
       Grafica.Left := 128;
       Grafica.Top := 0;
       Grafica.Width := 481;
       Grafica.Height := 333;
       Grafica.BackWall.Brush.Color := clWhite;
       Grafica.LeftWall.Brush.Color := clWhite;
       Grafica.Chart3DPercent := 100;
       Grafica.Legend.Alignment := laLeft;
       Grafica.Legend.ColorWidth := 10;
       Grafica.Legend.TextStyle := ltsPlain;

       SerieBarras:=TBarSeries.Create(Self);  //Nueva Linea

       Grafica.AddSeries(SerieBarras);  //Nueva Linea
       Grafica.Series[0].Add(12,'Hola');
      End;
Inc(i);
end;