не знаю как доделать

[malir]

Полукруг должен двигаться по полукругу
Код я написал тока он крутиться по кругу,куда мне вставить условие чтоб остановить движение по кругу, и чтоб он двигался по прямой

 const
cx=200;
cy=200;
r=100;

 procedure TForm4.FormActivate(Sender: TObject);
    begin
    a:=0;
    form4.Timer1.Enabled:=false;
    end;

procedure ris1;
begin
g:=pi/180;
x:=cx+round(r*cos(a*g));
y:=cy+round(r*sin(a*g));
 form4.canvas.Brush.color:=clRed;
Form4.Canvas.Pen.Color:=clred;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
end;

 procedure ris2;
 begin
 x:=x+1;
 form4.canvas.Brush.color:=clRed;
Form4.Canvas.Pen.Color:=clred;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
 end;

procedure ster1;
begin
form4.Canvas.Brush.Color:=clbtnface;
 Form4.Canvas.Pen.Color:=clbtnface;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
g:=pi/180;
x:=cx+round(r*cos(a*g));
y:=cy+round(r*sin(a*g));
end;

procedure ster2;
begin
 form4.canvas.Brush.color:=clBtnFace;
Form4.Canvas.Pen.Color:=clBtnFace;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
  x:=x+1;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
 x:=50;
y:=50;
Form4.Timer1.Enabled:=True;
Form4.timer1.Interval:=1;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
ster1;
 a:=a+1;
ris1;
end;