procedure GetPerformanceData(Method: Pointer; Arguments: array of const);
var i: Integer;
begin
  for i:= Low(Arguments) to High(Arguments) do begin
    asm
      MOV    EAX, DWORD ptr[Arguments[i]];
      PUSH   EAX;
    end;
  end;

end;