PaintBox1.Canvas.Rectangle... sleep(1000); PaintBox1.Canvas.MoveTo... sleep(1000); PaintBox1.Canvas.LineTo.