Problem solved =)
procedure TForm1.Button12Click(Sender: TObject);
var
Area: TAreaSeries;
begin
Area := TAreaSeries.Create(Chart1);
Area.AddXY(1, 1, 'Point1', TColor($000000));
Area.AddXY(2, 3, 'Point2', TColor($000000));
Area.AddXY(4, 4, 'Point3', TColor($000000));
Area.AddXY(5, 0, 'Point4', TColor($000000));
Chart1.AddSeries(Area);
end;