como dibujar lineas en el componente Paint Box

[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...