View difference between Paste ID: 7AhmUPcF and JqNgWih1

 procedure GetPerformanceData(Method: Pointer; Arguments: array of const);
 var i: Integer;
 temp_arg: Pointer;
-  for i:= Low(Arguments) to High(Arguments) do begin
+
   for i := Low(Arguments) to High(Arguments) do begin
-      MOV    EAX, DWORD ptr[Arguments[i]];
+    temp_arg := Arguments[i];
-      PUSH   EAX;
+    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;