como dibujar lineas en el componente Paint Box

[[kurono]]

hola amigos como estan me gustaria saber como puedo dibujar lineas verticales en el componente Paint Box ya que no encontrado la manera de hacerlo si no es mucha molestia me gustaria tener un ejemplo sencillo de como hacerlo

[rgstuamigo]

Coloca este codigo en el evento OnPaint de tu PaintBox:

Código Delphi [-]
procedure TForm1.PaintBox1Paint(Sender: TObject);
var f,i:Integer;
begin
i:=0;
f:=PaintBox1.Height;
 while ( i < PaintBox1.Width )  do
  begin
  PaintBox1.Canvas.Pen.Color:=clRed;
  PaintBox1.Canvas.MoveTo(i,0);
  PaintBox1.Canvas.LineTo(i,f);
  Inc(i,5);
  end;
end;

Espero te sea de utilidad.
Saludos...

[[kurono]]

gracia amigo rgstuamigo eso es lo que queria hacer me fue de mucha utilidad ahora ya se como se dibuja en un paint