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

[Atreides]

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

[Atreides]

Начал рисовать сетку на осях, но почему на пересечение с осью, сетка прокрашивается белым, это причина кривизны моих руки или в чем?
шрихи по оси Х

Код

  x:=S_is;
  i := 0;
  while i < 7 do
  begin
    Canvas.Pen.Color := RGB(0, 0, 0);
    Canvas.Pen.Width := 1;
    Canvas.MoveTo(StartX + S_is+x, StartY - 10);
    Canvas.LineTo(StartX + S_is+x, StartY + 10);
    x := x + S_is;
      inc(i);
    end;

сама ось X

Код

  // ось Х
  Canvas.Pen.Color := RGB(0, 0, 0);
  Canvas.Pen.Width := 1;
  Canvas.MoveTo(StartX, StartY);
  Canvas.LineTo(StartX + S_k + S_k + S_k, StartY);
  // подпись оси X
  Canvas.Font.Size := 11; // от 10 до 16
  Canvas.TextOut(StartX + S_k + S_k + S_k div 4, StartY - P_is div 2,
    'Остаток до конца срока');
  Canvas.Font.Size := 11; // от 10 до 16
  Canvas.TextOut(StartX + S_k + S_k + S_k div 4, StartY - P_is div 4,
    'службы по паспорту');
  Canvas.Font.Size := 11; // от 10 до 16
  Canvas.TextOut(StartX + S_k + S_k + S_k, StartY + P_is div 5, 'S');