Probleme mit ASM

[MisterNiceGuy]

Hi, ich will in ASM wie in Delphi mit succ eine String um jeweils einen Buchstaben "erhöhen" Ist aber ein Fehler im Code den ich nicht finde!!!

Code:

procedure TForm1.Button4Click(Sender: TObject);
var zeile : string;
begin
zeile := edit3.text;
   asm
      push Ebx      {Ebx retten}
      lea ebx,zeile {Adresse von Zeile holen}
      mov cl,[ebx]  {in das 8-bit Register die untersten 8-bit
                     von ecx- die Länge des Strings}
      inc ebx       {ebx einen weiter setzen}
      mov ch,1      {ch auf 1 setzen --> Zähler}
      @marke:
             mov al,[ebx]   {Buchstaben holen}
             inc al         {codieren}
             mov [ebx],al   {zurückschreiben}
             inc ch         {zählen}
             inc ebx        {nächster Buchstabe}
             cmp ch,cl
      jb @marke
      pop ebx
   end;
edit3.Text := zeile;
end;