Añadir barras a un TeeChart en ejecución

procedure TForm1.Button1Click(Sender: TObject);
var MiSerie:TBarSeries;
begin
  MiSerie:=TBarSeries.Create(Self);
  With MiSerie do begin
   ParentChart:=Chart1;       // o como se llame, del tipo TChart
   Add(VarBarra1,'', clRed);  // VarBarra es tu variable
   Add(VarBarra2,'', clRed);  // cl... y el color que quieras
  end;
end;
end.