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

[Atreides]

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

[IUnknown]

но можно ли делать штриховку и пунктирные линии?

Почему нет?

procedure TForm1.Button3Click(Sender: TObject);
var myBrush : HBRUSH;
begin
   with Self.Canvas do
   begin
      Pen.Style := psDashDot;
      MoveTo(0, 0);
      LineTo(ClientWidth, ClientHeight);
      Pen.Style := psDashDotDot;
      MoveTo(ClientWidth, 0);
      LineTo(0, ClientHeight);
   end;

   // Стандартные FillRect от Canvas глючат - инвертируют цвет, поэтому WinAPI
   myBrush := CreateHatchBrush(HS_FDIAGONAL, RGB(0,0,0));
   FillRect(Self.Canvas.Handle, Rect(10, 10, 50, 50), myBrush);
   DeleteObject(myBrush);
end;