如何实现窗口启动就显示图线？(100分)

绘图类canvas如何用？
我现在在一个窗体上有image1,image2,image3，image4四张图片
现在在他们间建立练线，要求image可以移动，并且移动是，练线跟着动
该如何实现，谁能帮着写一下简单的程序？谢谢！

得到要划线的两个坐标，然后用canvas.moveto到第一个坐标，用lineto在两座标
之间划一线，下面程序在两个image之间划线

var
p1,p2:TPoint;
begin
p1.X:=Image1.Left+Image1.Width-1;
p1.Y:=Image1.Top +Image1.Height div 2;
p2.X :=Image2.Left;
p2.Y :=Image2.Top+Image2.Height div 2;
form1.Canvas.MoveTo(p1.x,p1.Y);
form1.Canvas.Brush.Color:=clRed;
form1.Canvas.Pen.Color:=clRed;
Form1.Canvas.LineTo(p2.X,p2.Y );
end;

你可以建立数据库存放它们的信息，根据坐标画线，不难的。

谢谢book523的帮助
但是如何使image1--4运行时能够移动呢？