double x1, y1, a;

 for (int LOOP=0; LOOP<90 ; LOOP++)
       {
       a=LOOP/57.2958;

       x1 = 0 + 24*sin(a);
       y1 = 0 + 24*cos(a);
       Memo1->Lines->Add(FloatToStr(x1) + ", " + FloatToStr(y1));

}