Рисование сложных элементов, Построение замкнутых элементов Опции

[Atreides]

Добрый день! Прилетела задача по рисованию вот такой конструкции см.рисунок. Вопрос в чем это лучше сделать. Пробовал TChart, но не получается рисовать замкнутые линии, выдает ломанные. Через TCanvas, но можно ли делать штриховку и пунктирные линии?

[Atreides]

Столкнулся с такой ситуацией - у меня переменные типа int, а для полигона нужны Point, как обойти ситуацию?

Код

  Canvas.Pen.Style := psClear;
  Canvas.Brush.Style := bsBDiagonal;
  Canvas.Brush.Color := clRed;
  Canvas.Polygon([Point(StartX + S_is, StartY - P_is),
  Point(StartX + S_is, StartY - P_is - (Delta_S div 2)),
  Point(StartX + S_p, StartY - P_is - Delta_S),
  Point(StartX + S_p, StartY - P_is)]);