[Neftali [Germán.Estévez]]

Yo te diría que comenzaras por colocar un TPaintBox en un formulario, y sobre él empieces a pintar líneas...

Por ejemplo, coloca un botón con el siguiente código. Algo así debería pintar algo parecido a lo que necesitas.

Código Delphi [-]
var
  I: Integer;
  x, y:integer;
begin

  PaintBox1.Canvas.Pen.Width := 2;
  PaintBox1.Canvas.Pen.Color := clBlack;
  PaintBox1.Canvas.Pen.Style := psSolid;

  PaintBox1.Canvas.MoveTo(10, 10);
  PaintBox1.Canvas.LineTo(10, 410);  // Vertical
  PaintBox1.Canvas.LineTo(410, 410); // horizontal

  for i := 1 to 10 do begin
    x := 10 + (40*I);
    y := 10 + (40*I);
    PaintBox1.Canvas.MoveTo(x, y);
    PaintBox1.Canvas.LineTo(x, 410);  // vertical
    PaintBox1.Canvas.MoveTo(x, y);
    PaintBox1.Canvas.LineTo(10, y);
  end;