In Asm-Prozedur eine Exception auslösen

[Amateurprofi]

@Kas Ob.
Thanks for your detailed comments in #8.
Unfortunately not was I am looking for, because I dont want to call procedures outside of my Asm-Procedure (except system-routines).

What I am currently using is the following:

Delphi-Quellcode:

PROCEDURE RaiseException(const S:String);
begin
   raise Exception.Create(S);
end;

Delphi-Quellcode:

PROCEDURE Test;
const S:String='My Message';
asm
   {$IFDEF CPUX86}
   mov   eax,S
   {$ELSE}
   mov   rcx,S
   {$ENDIF}
   jmp   RaiseException
end;