[ContraVeneno]

Código Delphi [-]
Var MySeries:TChartSeries;
MySeries:=Series1;
ChangeSeriesType( MySeries, TBarSeries );