Series1.Marks.Style:= smsValue;
Series1.CustomBarWidth:=10;
Chart1.View3D:=false;
Series1.AddBar(11,'0.1',clred);
Series1.AddBar(33,'0.2',clred);
Series1.AddBar(12,'0.3',clred);
Series1.AddBar(12,'0.4',clred);
Series1.AddBar(22,'0.5',clred);
Series1.AddBar(10,'0.6',clred);
Series2.AddXY(0,11,'',clgreen);
Series2.AddXY(1,33,'',clgreen);
Series2.AddXY(2,12,'',clgreen);
Series2.AddXY(3,12,'',clgreen);
Series2.AddXY(4,22,'',clgreen);
Series2.AddXY(5,10,'',clgreen);