Обратный ход спирали

[Anubys]

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int bx = Form1->Width/2;
int by = Form1->Height/2;
const TColor cl[8] = {clAqua, clMaroon, clBlue, clPurple, clGreen,
 clLime, clMaroon, clRed};
double ang = 0;
int x,y;
int r = 0;
double vitok = 0;
int indexColor = 0;
Form1->Canvas->MoveTo(bx, by);
for (r=0; r<200; r++)
	{
	x = r * cos((3.14/180)*(ang)) + bx;
	y = r * sin((3.14/180)*(ang)) + by;
	Form1->Canvas->LineTo(x,y);
		if (ang >= vitok)
		{
		vitok  = ang + 360;
		Form1->Canvas->Pen->Color = cl[indexColor++];
		}
	ang += 10;
	Sleep(50);
	}
}