1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
var
  A, i ,buff : Integer;
  text : String;
begin
  A := 0;
  buff := 0;
  //=======================================
  text := edit1.Text;
//=======================================
  for i := 1 to Length(text) do
    A := Ord(text[i]);
  asm
    MOV EAX, A
    add eax,eax
    mov buff, EAX
  end;
//=======================================
  Edit2.Text := IntToStr(buff);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

00465FE1  |.  BA 01000000   MOV EDX,1
00465FE6  |>  8B4D F4       /MOV ECX,DWORD PTR SS:[EBP-C]
00465FE9  |.  0FB74C51 FE   |MOVZX ECX,WORD PTR DS:[ECX+EDX*2-2] ;//Ord(text[i]);
00465FEE  |.  894D FC       |MOV DWORD PTR SS:[EBP-4],ECX       ;//mov buff,eax
00465FF1  |.  42            |INC EDX
00465FF2  |.  48            |DEC EAX
00465FF3  |.^ 75 F1         \JNZ SHORT 00465FE6
00465FF5  |>  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
00465FF8  |.  01C0          ADD EAX,EAX  <<<<<<<<<< da is das add ?? wtf :(					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var
  A, i ,buff : Integer;
  text : String;
begin
  A := 0;
  buff := 0;
  //=======================================
  text := edit1.Text;
//=======================================
  for i := 1 to Length(text) do
  begin
    A := Ord(text[i]);
    asm
      MOV EAX, A
      add eax,eax
      mov buff, EAX
    end;
  end;
//=======================================
  Edit2.Text := IntToStr(buff);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

00465FE3  |.  B9 01000000   MOV ECX,1
00465FE8  |>  8B45 F4       /MOV EAX,DWORD PTR SS:[EBP-C]
00465FEB  |.  0FB74448 FE   |MOVZX EAX,WORD PTR DS:[EAX+ECX*2-2]
00465FF0  |.  8945 FC       |MOV DWORD PTR SS:[EBP-4],EAX
00465FF3  |.  8B45 FC       |MOV EAX,DWORD PTR SS:[EBP-4]
00465FF6  |.  01C0          |ADD EAX,EAX <<<<<<<<<<<<<< müsste wohl eine zeile höher ?!?!?
00465FF8  |.  8945 F8       |MOV DWORD PTR SS:[EBP-8],EAX
00465FFB  |.  41            |INC ECX
00465FFC  |.  4A            |DEC EDX
00465FFD  |.^ 75 E9         \JNZ SHORT 00465FE8					

1:
2:
3:
4:
5:

text = hallo
hallo = 68 61 6C 6C 6F 
== 68 + 61 + 6C + 6C + 6F = 210 == 528 <<< valid!

also müsste die schleife jedes zeichen einlesen Ord(text[i]) und addieren ADD EAX,EAX....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  for i := 1 to Length(text) do
  begin
    A := Ord(text[i]);
    asm
      MOV EAX, A
      mov buff, EAX
      mov edx, buff
      add eax,edx
      mov buff,eax
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 1 to Length(text) do
  begin
    A := Ord(text[i]);
    asm
      MOV EAX, A            // Inhalt von A nach EAX schieben, EAX = A
      mov buff, EAX         // Inhalt von EAX nach Buff schieben, Buff = EAX = A
      mov edx, buff         // Inhalt von Buff nach EDX, EDX = EAX = A = Buff
      add eax,edx           // Addiere EDX und EAX, da EAX und EDX jeweils den Wert von A haben = 2 * A
      mov buff,eax          // nun schiebst Du den Wert von EAX nach BUff, Buff = 2 * A
    end;					

1:
2:
3:

buf := 0;
for i := 1 to Length(text) do
  buf := buf + Ord(text[i]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

asm
    PUSH    ESI
    XOR     EAX, EAX
    MOV     ESI, DWORD PTR [Text]
    TEST    ESI, ESI
    JZ      @@e
    MOV     ECX, DWORD PTR [ESI - 4]
@@l:
    MOVZX   EDX, BYTE PTR [ESI]
    ADD     EAX, EDX
    INC     ESI
    DEC     ECX
    JNZ     @@l
@@e:
    POP     ESI
    MOV     DWORD PTR [Buff], EAX
end;					

1:
2:
3:
4:
5:
6:

@@l:
    MOVZX   EDX, BYTE PTR [ESI]
    ADD     EAX, EDX
    INC     ESI // {ADD ESI, 2} 
    DEC     ECX
    JNZ     @@l