MonteCarloSimulation - falsche ergebnisse

[glkgereon]

hi

ich mach grad ein prog zur montecarlo-simulation
damit berrechne ich pi

nun ist pi ja meines wissens 3,14....

bei mir kommt aber 3,18... raus

wo ist der fehler?

Delphi-Quellcode:

var 
  x, y, i, pin:integer;//x, y, alle punkte, punkte im kreis
  pi:Extended;
begin
while (running) do
  begin
  x:=random(NETZGENAUIGKEIT);
  y:=random(NETZGENAUIGKEIT);
  if sqr(x)+sqr(y)<sqr(NETZGENAUIGKEIT) then inc(pin);
  inc(i);
  Application.ProcessMessages;
  end;
pi:=4*pin/i;

also ein randomize is davor....