Произвольная фигура и её размеры

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Refresh();
// у меня
// ClientWidth = 800;
// ClientHeight = 600;
  const count = 3, border = 100, size_line_dist_from_obj = 30, arrow_size = 10;
  int i, x[count], y[count], xmax = border, xmin = ClientWidth - border, ymax = border/2, ymin = ClientHeight - border/2;
  int index_xmax, index_xmin, index_ymax, index_ymin;
  randomize();
  // генерируем случайные точки
  for (i = 0; i < count; i++)
  {
    x[i] = random(ClientWidth - border*2) + border;
    y[i] = random(ClientHeight - border) + border/2;
  }
 
  // находим крайние точки и их индексы
  for (i = 0; i < count; i++)
  {
    if (x[i] > xmax)
    {
      xmax = x[i];
      index_xmax = i;
    }
    if (x[i] < xmin)
    {
      xmin = x[i];
      index_xmin = i;
    }
    if (y[i] > ymax)
    {
      ymax = y[i];
      index_ymax = i;
    }
    if (y[i] < ymin)
    {
      ymin = y[i];
      index_ymin = i;
    }
  }
 
  // рисуем размерные линии, включая стрелки
  // фигуру рисуем в конце (координаты точек уже известны), см. комментарий ниже
  Canvas->Pen->Color = clSilver;
 
  Canvas->MoveTo(xmin-size_line_dist_from_obj, ymin);
  Canvas->LineTo(x[index_ymin], ymin);
 
  Canvas->MoveTo(xmin-size_line_dist_from_obj, ymin);
  Canvas->LineTo(xmin-size_line_dist_from_obj-arrow_size/2, ymin+arrow_size);
  Canvas->MoveTo(xmin-size_line_dist_from_obj, ymin);
  Canvas->LineTo(xmin-size_line_dist_from_obj+arrow_size/2, ymin+arrow_size);
 
  Canvas->MoveTo(xmin-size_line_dist_from_obj, ymin);
  Canvas->LineTo(xmin-size_line_dist_from_obj, ymax);
  Canvas->LineTo(x[index_ymax], ymax);
 
  Canvas->MoveTo(xmin-size_line_dist_from_obj, ymax);
  Canvas->LineTo(xmin-size_line_dist_from_obj-arrow_size/2, ymax-arrow_size);
  Canvas->MoveTo(xmin-size_line_dist_from_obj, ymax);
  Canvas->LineTo(xmin-size_line_dist_from_obj+arrow_size/2, ymax-arrow_size);
 
  Canvas->MoveTo(xmin, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmin, y[index_xmin]);
 
  Canvas->MoveTo(xmin, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmin+arrow_size, ymax+size_line_dist_from_obj-arrow_size/2);
  Canvas->MoveTo(xmin, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmin+arrow_size, ymax+size_line_dist_from_obj+arrow_size/2);
 
  Canvas->MoveTo(xmin, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmax, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmax, y[index_xmax]);
 
  Canvas->MoveTo(xmax, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmax-arrow_size, ymax+size_line_dist_from_obj-arrow_size/2);
  Canvas->MoveTo(xmax, ymax+size_line_dist_from_obj);
  Canvas->LineTo(xmax-arrow_size, ymax+size_line_dist_from_obj+arrow_size/2);
 
  // выводим текст
  Canvas->TextOutW((xmax+xmin)/2-size_line_dist_from_obj/3, ymax+size_line_dist_from_obj/2, String(xmax-xmin));
  Canvas->TextOutW(xmin-size_line_dist_from_obj*1.75, (ymax+ymin)/2-size_line_dist_from_obj/3, String(ymax-ymin));
 
  // рисуем фигуру (треугольник); делаем это в конце для того, чтобы размерные линии не "затирали" часть фигуры
  Canvas->Pen->Color = clBlack;
  Canvas->MoveTo(x[0], y[0]);
  Canvas->LineTo(x[1], y[1]);
  Canvas->LineTo(x[2], y[2]);
  Canvas->LineTo(x[0], y[0]);
}