como dibujar lineas en el componente Paint Box
 

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

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...:)

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