用Delphi编写圆周率模拟器[2]

　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　// 画亮绿色的正方形演示框
　　Image1.Canvas.Brush.Color:=clBlack;
　　Image1.Canvas.FillRect(Rect(0,0,199,199));
　　Image1.Canvas.Pen.Color:=cllime;
　　Image1.Canvas.Rectangle(0,0,199,199);
　　DoubleBuffered := True;
　　end;

　　接着放入一个Timer实现点的绘制以及π的计算：

　　procedure TForm1.Timer1Timer(Sender: TObject);

原文转自：http://www.ltesting.net