Fórum gráfico de barras no Teechart #424932

Por favor, poderia postar o seu código?

Ja encontrei a solução adicionando a linha de código: VertAxis := aBothVertAxis;
no meu procedimento ao qual adiciono os dados
porém o meu programa está em tempo de execução onde tenho q adicionar uma linha de pesos ao gráfico de barras.
Como adiciona-la?
Segue abaixo o código:


interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,Grids,ComObj,ComCtrls,Series,TeePolar,BubbleCh,TeEngine,
ExtCtrls,TeeProcs,Chart,ExtDlgs,Menus, uOutput;
var
vetnamecrit:array of string;
bars:TBarSeries;
bubbles:TBubbleSeries;
radars:TRadarSeries;
lines:TLineSeries;
procedure ORGANIZEDMATRIZDADOS;
procedure ADICIONAR;

implementation

procedure ORGANIZEDMATRIZDADOS;
var i,j,k:integer;
aux:single;
aux2:string;
begin

for I := 0 to numcrit - 1 do
for J := I+1 to numcrit - 1 do
if matrizdados[numport,i]<=matrizdados[numport,j] then
begin
aux2:=vetnamecrit[i];
vetnamecrit[i]:=vetnamecrit[j];
vetnamecrit[j]:=aux2;
for k := 0 to numport do
begin
aux:=matrizdados[k,i];
matrizdados[k,i]:=matrizdados[k,j];
matrizdados[k,j]:=aux;
end;
end;
end;

procedure ADICIONAR;
var i,j:integer;
style:array of TeEngine.TSeriesPointerStyle;
rect:TRect;
begin
for i := 0 to numport - 1 do
begin
bars:=TBarSeries.Create(uOutput.frmOutput.BarGraph);
uOutput.frmOutput.BarGraph.AddSeries(bars);
bars.MultiBar:=mbSide;
uOutput.frmOutput.BarGraph.Series[i].LegendTitle:=('Port'+IntToStr(i+1));

bubbles:=TBubbleSeries.Create(uOutput.frmOutput.BubbleGraph);
uOutput.frmOutput.BubbleGraph.AddSeries(bubbles);
uOutput.frmOutput.BubbleGraph.Series[i].LegendTitle:=('Port'+IntToStr(i+1));
uOutput.frmOutput.BubbleGraph.BottomAxis.MaximumOffset:=(numcrit+1);

end;
lines:=TLineSeries.Create(uOutput.frmOutput.BarGraph);
uOutput.frmOutput.BarGraph.AddSeries(lines);
uOutput.frmOutput.BarGraph.Series[numport].LegendTitle:=('WEIGHTS');

for I := 0 to numport -1 do
begin
for J := 0 to numcrit - 1 do
begin
With uOutput.frmOutput.BarGraph.Series[i] do
begin
VertAxis := aBothVertAxis;
AddXY(J+1,matrizdados[i,j],vetnamecrit[j],clTeeColor);
Marks.Visible:=false;
Visible:=false;
end;
With uOutput.frmOutput.RadarGraph.Series[i] do
begin
Add(matrizdados[i,j],vetnamecrit[j],clTeeColor);
LegendTitle:=('Port'+IntToStr(i+1));
Visible:=false;
end;
end;
end;

uOutput.frmOutput.BarGraph.Series[numport].Visible:=true;
uOutput.frmOutput.RadarGraph.Series[numport].Visible:=true;
uOutput.frmOutput.RadarGraph.Series[numport].LegendTitle:=('Weight');

for I := 0 to numport - 1 do
begin
for J := 0 to numcrit - 1 do
begin
With uOutput.frmOutput.BubbleGraph.Series[i] do
begin
bubbles.AddBubble((j+1),matrizdados[i,j],matrizdados[numport,j]/12,vetnamecrit[j],color);
Marks.Visible:=false;
ColorEachPoint:=false;
Visible:=false;
end;
end;
end;
end;

end.

Segue o código.