请帮忙解决一个delphi嵌入汇编的问题.

const filestream_class: tclass = tfilestream;
var
  filestream: tfilestream;
  path: string;
  s: string;
begin
  path := 'c:\temp\temp.txt';
  filestream := nil;
  asm
    push fmcreate
    mov ecx, path
    mov dl,$01
    mov eax, filestream_class
    call tfilestream.create
    mov ebx,eax
  end;
  s := 'zswang 路过';
  filestream.write（s[1], length（s));
  filestream.free;
end;