[[seoane]]

Aqui te va algo para empezar

Código Delphi [-]
  // Dibujar una linea
  Canvas.MoveTo(50,50);
  Canvas.LineTo(200,50);

  // Dibujar un rectangulo
  Canvas.Rectangle(10,10,100,100);

  // Dibujar una ellipse
  Canvas.Ellipse(10,10,100,100);

En los ejemplos anteriores usamos el canvas del propio formularion, podemos utilizar el de un TPaintbox o el de un TImage. Si dibujas sobre un Timage luego podras guardar el dibujo.

Código Delphi [-]
  // Dibujar una linea
  Paintbox1.Canvas.MoveTo(50,50);
  Paintbox1.Canvas.LineTo(200,50);

  // Dibujar un rectangulo
  Image1.Canvas.Rectangle(10,10,100,100);