Quellcode des Programms in Delphi übersetzen - Hilfe gesucht

[KSebi]

so also mein aktueller quellcode:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  i,cha:integer;
  serial:string;
  neu:integer;

const
  hexes:array[0..15] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

begin                        {Procedure}
if length(Edit1.Text) < 3 then
  Edit2.Text := 'Der Benutzername ist zu kurz!'
else if length(Edit1.Text) > 50 then
  Edit2.Text := 'Der Benutzername ist zu lang!'
else
begin                        {if}
  for i:=1 to length(Edit1.Text) do
  begin
    cha := integer(Edit1.Text[i]); {Get char }
    asm
    MOV eax,cha
    XOR eax,201527
    ADD eax,3735928559
    IMUL eax,eax, 1638
    SUB eax,464370355
    SHL eax,3
    XOR eax,3545092109
    ADD ebx,eax
    MOV neu,ebx
    end;
  end;

  {Hier muss EBX noch in einen HEX-Wert geändert werden}
  serial := hexes[neu div 16]+hexes[neu mod 16];
  Edit2.Text := serial;
end;                         {if}
end;                         {Procedure}

end.

Hab mir das mitm hex wo anders hier im Forum abgeschaut.

DOCH: Nun kann ich den Code zwar ausführen, wenn ich in das proggy dann aber einen namen eingebe, bricht das proggy mit nem fatalen Fehler ab. Findet hier jemand den Fehler?

Ich weiß derziet net weiter.

Schonma danke