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

[Atreides]

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

[IUnknown]

Canvas.Polygon использует текущую кисть для заливки:

      Pen.Style := psClear;
      Brush.Style := bsBDiagonal;
      Brush.Color := clRed;
      Polygon([Point(50, 50), Point(300, 300), Point(100, 200)]);