如何根据给定坐标绘制折线? ( 积分: 50 )

如何根据给定坐标绘制折线?
x,y保存在数组中,请根据x为纵坐标y为横坐标,在image上绘出坐标点的连线
我是新手,谢谢各位富翁,最好能给出实例!
x y
10 9
10.5 1
11 5
12 6
13 10
13.5 1
14 7
14.5 3
15 7
16 7
17 3
18 4
19 3
20 3
21 2
22 2
23 3
24 4
26 1
29 1
3 1
31 1
32 1
35 1
4 2
42 1
5 2
51 1
6 2
7 12
8 4
80 1
9 9

如何根据给定坐标绘制折线?
x,y保存在数组中,请根据x为纵坐标y为横坐标,在image上绘出坐标点的连线
我是新手,谢谢各位富翁,最好能给出实例!
x y
10 9
10.5 1
11 5
12 6
13 10
13.5 1
14 7
14.5 3
15 7
16 7
17 3
18 4
19 3
20 3
21 2
22 2
23 3
24 4
26 1
29 1
3 1
31 1
32 1
35 1
4 2
42 1
5 2
51 1
6 2
7 12
8 4
80 1
9 9

begin
//在Image上画一条直线
image1.Canvas.Pen.Color := ClRed; //设定线的颜色
image1.Canvas.Pen.Width := 3;//设定线的宽度
image1.Canvas.MoveTo(X1, Y1);//第一个点的坐标
image1.Canvas.lineTo(X2, T2);//第二个点的坐标
end;

procedure TForm1.Button1Click(Sender: TObject);
var
pt: array[0..3] of TPoint;
begin
pt[0] := Point(10, 10);
pt[1] := Point(20, 20);
pt[2] := Point(15, 30);
pt[3] := Point(40, 40);
// 画折线
Image1.Canvas.Brush.Color := clInfoBk;
Image1.Canvas.FillRect(Image1.ClientRect);
Image1.Canvas.Pen.Color := clBlue;
Image1.Canvas.Pen.Width := 2;
Image1.Canvas.Polyline(pt);
end;

可以用Tchart控件，用series1.addxy()的方法