Проблема рисования толстой пунктирной линии

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    Image1->Canvas->Pen->Width=2;//размер пера равен 2ум
    Image1->Canvas->Pen->Style=psDot;//выбор типа линии(пунктирная)
   if(n==0){//если произошло первое нажатие на Image
     Image1->Canvas->MoveTo(X,Y);//ставим начальную точку
     n=1;
   }else if(n==1){//если произошло второе нажатие на Image
      Image1->Canvas->LineTo(X,Y);//рисуем линию
      n=0;
   }
}

for(int i =0; i<3; i++)
{
 
     Image1->Canvas->MoveTo(X+i,Y);//ставим начальную точку
     Image1->Canvas->LineTo(X+i,Y);//рисуем линию
}

void DotLine(TCanvas *canvas, TPoint start_point, TPoint end_point, int line_width, TColor color)
{
  // запоминаем текущие цвета, чтобы потом их восстановить
  TColor pen_color = canvas->Pen->Color, brush_color = canvas->Brush->Color;
  // длина линии
  int line_length = sqrt(pow(start_point.x - end_point.x, 2) + pow(start_point.y - end_point.y, 2));
  // угол наклона линии
  double angle = atan2(end_point.y - start_point.y, end_point.x - start_point.x);
 
  // задаем цвет
  canvas->Pen->Color = color;
  canvas->Brush->Color = color;
 
  // рисуем линию из "кружков"
  for (int i = line_width; i <= line_length - line_width; i += 2 * line_width)
    canvas->Ellipse(start_point.x + i * cos(angle) - line_width / 2, start_point.y + i * sin(angle) - line_width / 2,
                    start_point.x + i * cos(angle) + line_width / 2, start_point.y + i * sin(angle) + line_width / 2);
 
  // "восстанавливаем" запомненные цвета
  canvas->Pen->Color = pen_color;
  canvas->Brush->Color = brush_color;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//  Refresh();
  randomize();
  DotLine(Canvas, TPoint(random(ClientWidth), random(ClientHeight)), TPoint(random(ClientWidth), random(ClientHeight)), random(10) + 1, clBlack);
}