TestMethode:
013911E0  jmp         TestMethode (13915C0h) ; Zur Testmethode springen, s. Z. 5

;int TestMethode( int a, int b, const char *d ) {
013915C0  push        ebp             ; Irgendne Scheiße die er braucht. Irrelevant
013915C1  mov         ebp,esp         ; da dieser Part eh von Delphi kompiliert wird
013915C3  sub         esp,0C0h
013915C9  push        ebx
013915CA  push        esi
013915CB  push        edi
013915CC  lea         edi,[ebp-0C0h]
013915D2  mov         ecx,30h
013915D7  mov         eax,0CCCCCCCCh
013915DC  rep stos    dword ptr es:[edi]
;  return a;
013915DE  mov         eax,dword ptr [a] ; a in eax als ergebnis schreiben
;}
013915E1  pop         edi
013915E2  pop         esi
013915E3  pop         ebx
013915E4  mov         esp,ebp
013915E6  pop         ebp
013915E7  ret

;Aus der TESTERFUNKTION:
;  int r;                         // Result-Variable
;  r = TestMethode( Ta, Tb, Tc ); //Aufruf der getesteten Methode
0139397E  mov         eax,dword ptr [Tc]  ; Letztes argument in eax
01393981  push        eax                 ; eax pushen
01393982  mov         ecx,dword ptr [Tb]  ; Vorletztes Argument in eax
01393985  push        ecx                 ; eax pushen
01393986  mov         edx,dword ptr [Ta]  ; erstes Argument in eax
01393989  push        edx                 ; eax pushen
0139398A  call        TestMethode (13911E0h)  ; Testmethode aufrufen, s. Z. 2
0139398F  add         esp,0Ch             ; Das braucht er hier anscheinend
01393992  mov         dword ptr [r],eax   ; Das Ergebnis aus eax wieder rausholen
;}
01393995  pop         edi                 ; Alles wegpoppen. Ebenfalls irrelevant.
01393996  pop         esi
01393997  pop         ebx
01393998  add         esp,0CCh
0139399E  cmp         ebp,esp
013939A0  call        @ILT+325(__RTC_CheckEsp) (139114Ah)  ;C++-Spezifische sache
013939A5  mov         esp,ebp
013939A7  pop         ebp
013939A8  ret                             ; Hinter die jmp-Anweisung zurückspringen, die die Testerfunktion aufgerufen hat