关于asm的编程(50分)

我有一个汇编问题请教大家：
function Newstr(s:String):ShortString;register;
asm
mov edx, eax
mov byte ptr [edx+1], 'A'
mov eax, edx
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=Newstr('aaa');
end;

如此不能返回'aAa'。
请问字串应该如何返回，需要注意什么？谢谢！

对象构造是很复杂的,不同于简单类型

try var s: string to return, and the edx[+1]is first char not second
so will return 'Aaa'

接受答案了.