procedure GetPerformanceData(Method: Pointer; Arguments: array of const);
var i: Integer;
temp_arg: Pointer;
begin
  for i := Low(Arguments) to High(Arguments) do begin
    temp_arg := Arguments[i];
    Case i - Low(Arguments) Of
    0: asm
         MOV EAX, temp_arg
       end;
    1: asm
         MOV EDX, temp_arg
       end;
    2: asm
         MOV ECX, temp_arg
       end;
    else: asm
         MOV EBX, temp_arg
         PUSH temp_arg
       end;
    end;
    asm
      CALL Method
    end;
  end;

end;