1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

with image2.Canvas do
    begin
       moveto(1,1);                 {strich-geht}
       lineto(380,80);

        pen.color:=$FFFFFF;
      polybezier
      ([point(400,50),point(420,60),point(440,50),point(460,60)]);     {welle-geht nicht}
    end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   x2:=x2-2; y2:=y2+1;
   image2.Left:=x2;     image2.top:=y2;
   {400,150}
   if (x2<300) or (y2>200) then begin x2:=400; y2:=150   end;