Methode "Free" selbst implementieren (Assembler-Problem?)

[retnyg]

dann halt so:

Delphi-Quellcode:

procedure dosomething;
begin
  mydestroyvariable := true;
end;

procedure TObject.Free(myparam:boolean); stdcall;
asm
        pop edx
        cmp edx, 1 
        jne @@weiter
        call dosomething
@@weiter:
        TEST    EAX,EAX
        JE      @@exit
        MOV     ECX,[EAX]
        CALL    dword ptr [ECX].vmtDestroy
@@exit:
end;