Логарифмическая спираль

void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
   int X0 = PaintBox1->Width/2;
   int Y0 = PaintBox1->Height/2;
 
   int Xi, Yi;
 
   float ro;
   float fi;
 
   float x, y;
 
   float eps = 0.001;
 
   float M = StrToFloatDef(LabeledEdit1->Text, 25);
   float Koeff_a = StrToFloatDef(LabeledEdit2->Text, 1);
   float Koeff_k = StrToFloatDef(LabeledEdit3->Text, 1);
 
 
   try
   {
     for (float fi = 0;; fi += 0.1)
     {
       ro = Koeff_a * exp (Koeff_k * fi);
 
       x = ro * cos(fi);
       y = ro * sin(fi);
 
       Xi = X0 + (int)(x*M);
       Yi = Y0 - (int)(y*M);
 
       if (fi == 0)
       {
         PaintBox1->Canvas->MoveTo(Xi, Yi);
       }
       else
       {
         PaintBox1->Canvas->LineTo(Xi, Yi);
       }
       if (ro < eps || ro * M > X0 + Y0 || fi > 1e4)
       {
         break;
       }
     }
   }
   catch(...)
   {
   }
}