grundsätzliche Frage zu Multithreading

[Gargamel]

Delphi-Quellcode:

procedure calcDelphi();
var vecX, vecY, vecZ, len, normX, normY, normZ:single;
    i:integer;
Begin
  for i:=0 to 100000000 - 1 do
  Begin
    vecX:= 5.7458;
    vecY:= 3.758;
    vecZ:= 7.12544;

    len:=Sqrt(vecX*vecX+vecY*vecY+vecZ*vecZ);

    normX:= vecX / len;
    normY:= vecY / len;
    normZ:= vecZ / len;
  End;
End;

procedure calcDelphi_withCPP();
Begin
  calcCPP(); // importierte Funktion
End;