дуга в делфи

[sp.caster]

Я пытаюсь нарисовать дугу и заставить ее двигаться. Но получается что часть дуги движется, а другая стоит на месте. Подскажите в чем проблема, вот код

var
Form1: TForm1;
x1:integer=-5;
x2:integer=160;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
with Form1.Canvas do begin
brush.color:=clgray;
rectangle(0,Form1.Height div 2,10000,10000);
brush.color:=claqua;
rectangle(0,0,10000,Form1.Height div 2);
brush.color:=clwhite;
x1:=x1+5;
x2:=x2+10;
Canvas.Arc(x1,30,50,60,50,30,20,x2);
end;
end;
end.

[Lotos]

Метод Arc рисует дугу по 4 точкам:
(х1,30);(50,60);(50,30);(20,х2)
Меняются только координаты двух точек. Как же должна двигаться вся дуга, ведь движение - это изменение всех координат кривой