Inline Asm Problem

[JnZn558]

das is mein code, compiliere tut es, nur es kratz ab, und ich weiss net was falsch is. uebrigens hab ich delphi 2009

Delphi-Quellcode:

unit inlineasm;

interface

type

  TAsm = class
    m_strAsm: string;

  public
    constructor Create;
    property Text: string read m_strAsm;
  end;

implementation

  constructor TAsm.Create;
  begin
    asm
      push edx
      @str: db 'Hello World', $0
      lea edx, @str
      mov TAsm[eax].m_strAsm, edx
      pop edx
    end;
  end;

end.