Was ist schneller, Funktion oder Prozedure?

[Angel4585]

WOW, das ändert das ganze schon beträchtlich : Prozedur liegt bei 3,107773 Funktion bei 3,087948

Edit :

Delphi-Quellcode:

var 
  lol,lol2: Int64; 
  v,w,i: Integer;
const anz = 1000000 ;
begin
  w:=0;
  for i:= 1 to anz do
   begin
   QueryPerformanceCounter(lol);
   xx(v);
   QueryPerformanceCounter(lol2);
   w:=w+ lol2-lol;
   end;
  Label1.Caption := FloatToStr(w/anz );

  w:=0;
  for i:= 1 to anz do
   begin
   QueryPerformanceCounter(lol);
   v:=y;
   QueryPerformanceCounter(lol2);
   w:=w+ lol2-lol;
   end;
  Label2.Caption := FloatToStr(w/anz );
end;

bei anz = 10000000 wird plötzlich die Prozedur schneller (3,14 für prozedure und 3,26 für Funktion)