Delphi-PRAXiS - Delphi Prozedur _LStrAsg in der Unit Systems

Ich programmiere gern und oft in Assembler.
Um einen in einer Assemblerroutine erzeugten und auf dem Stack abgelegten String in eine Variable des Typs String zu kopieren will ich die in systems enthaltene Routine _LStrAsg benutzen.
Problem : Die Routine, obwohl im Interface von System deklariert, läßt sich nicht aufrufen.
Meine bisherige Lösung :

Ich rufe in FormCreate die Prozedur _CopyStr auf (damit sie Compiliert wird) und dann die Prozedur GetLStrAsgAddress, die aus dem Compilat von _CopyStr die Adresse von _LStrAsg holt und speichert.

Weiß jemand eine elegantere Methode, um an die Adresse von _LStrAsg heranzukommen ?
Herzlichen Dank.

Delphi-Quellcode:

			var LStrASG:Cardinal;

const DummiStr:String='Dummi';

PROCEDURE _CopyStr(var s:string);

begin

   s:=DummiStr;

end;

FUNCTION GetLStrAsgAddress:boolean;

asm

      xor   eax,eax             // Result=False

      lea   edx,_CopyStr+$10;   // da steht call _LStrAsg

      cmp   byte [edx],$E8      // Steht das da wirklich ('E8'='call'?

      jne   @End

      inc   edx                 // Zeigt auf die relative Adresse von _LStrAsg

      add   edx,[edx]           // Offset addieren

      add   edx,4               // + 1 DWord für die Adresse

      mov   LStrAsg,edx         // speichern

      inc   eax                 // Result=True

@End:

end;