TChart. Соединить точку с центром координат

void T_ADC_ArchiveItem::SetOnPolarGraph(TBubbleSeries* SeriesX, TBubbleSeries* SeriesY,
                                        TLineSeries* LineX, TChart* Chart, unsigned int HistoryPoints)
{
        double X_x_coord,X_y_coord, Y_x_coord,Y_y_coord;
        double X_Max, Y_Max, X_Min, Y_Min;
 
          //Добавляем точки к диаграмме
          SeriesX->AddBubble(X_x_coord, X_y_coord, 1, "", clRed);
          SeriesY->AddBubble(Y_x_coord, Y_y_coord, 1, "", clBlue);
 
          //Добавляем линии
 
          LineX->AddXY(X_x_coord,X_y_coord,"",clRed);
          LineX->AddXY(0,0,"",clRed);
 
          //Удаляем старую точку и линию
 
          if(SeriesX->XValues->Count()>HistoryPoints)
          {
 
            SeriesX->XValues->Delete(0);
            SeriesX->YValues->Delete(0);
            SeriesX->RadiusValues->Delete(0);
 
            LineX->XValues->Delete(0);
            LineX->YValues->Delete(0);
          }
 
          if(SeriesY->XValues->Count()>HistoryPoints)
 
          {
            SeriesY->XValues->Delete(0);
            SeriesY->YValues->Delete(0);
            SeriesY->RadiusValues->Delete(0);
          }
 
          //Устанавливаем масштаб равный по осям, коорд. 0,0 в центре диаграммы
          Y_Min = 1.1*min(SeriesX->YValues->MinValue, SeriesY->YValues->MinValue);
          X_Min = 1.1*min(SeriesX->XValues->MinValue, SeriesY->XValues->MinValue);
 
          Y_Max = 1.1*max(SeriesX->YValues->MaxValue, SeriesY->YValues->MaxValue);
          X_Max = 1.1*max(SeriesX->XValues->MaxValue, SeriesY->XValues->MaxValue);
 
          MaxBoundary = sqrt(pow((double)max(fabs(Y_Min), fabs(Y_Max)), (double)2) +
                        pow((double)max(fabs(X_Min), fabs(X_Max)), (double)2));
 
          Chart->LeftAxis->SetMinMax(-MaxBoundary,MaxBoundary);
          Chart->BottomAxis->SetMinMax(-MaxBoundary,MaxBoundary);
 
          //Масштабируем точки
          for(int i = 0; i < SeriesX->RadiusValues->Count(); i++)
          {
            SeriesX->RadiusValues->Value[i] = ((float)i/(float)HistoryPoints+1)*MaxBoundary/30;
            SeriesY->RadiusValues->Value[i] = ((float)i/(float)HistoryPoints+1)*MaxBoundary/30;
          }
 
          Chart->Refresh();
 
        }
}