为什么不显示'DelphiX'?}

Question

可以显示,你看看:
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s:= 'DelphiX';
asm
  lea eax,[ebp-$04] // <-- Dest
  mov edx,s        // <--Source
  call system.@LStrLAsg  // <--Copy String
  mov eax,[ebp-$04] //取出S
  call ShowMessage
end;
end;

Answer 1

不许写：
s:= 'DelphiX';
没看出来我是想用汇编实现的么！也就是以下语句：
asm
  lea eax,[ebp-$04] // <-- Dest
  mov edx,s        // <--Source
  call system.@LStrLAsg  // <--Copy String