thread legt programm lahm...

[GeorgPeifer]

bau 'ne bremse rein:

Code:

procedure TPiCalc.Execute;
var x, y:Extended;
begin
  SetName;
  Priority:=tpLower;
  { Thread-Code - MonteCarlo Verfahren}
  randomize;
  while not Terminated do
    begin
    x:=random;
    y:=random;
    if sqr(x)+sqr(y)<1 then inc(FPIn);
    inc(FN);
    if FOutPutLevel=3 then
      begin FPX:=x; FPY:=y; end;
    if FOutPutLevel>1 then FPi:=4*Fpin/FN;
    sleep(20);  //   schlaf mal 20 Millisekunden
    end;
end;