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

 for x:=1 to strtoint(Anzahl.text) do 
 For i := 0 To (AbsenderNamenListe.Items.Count-1) do

begin
    idMessage.Body.Add(NachrichtenListe.Items.Strings[i]);

   idSMTP.Connect;
   idSMTP.Send(idMessage);
   idSMTP.Disconnect;

Application.ProcessMessages;
Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1);
if Anzahl.Text=('0') then goto Ende;
end;                    

1:

For i := 0 To (AbsenderNamenListe.Items.Count-1) do                    

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

for x:=1 to strtoint(Anzahl.text) do 
[b]begin[/b]
For i := 0 To (AbsenderNamenListe.Items.Count-1) do 

begin 
    idMessage.Body.Add(NachrichtenListe.Items.Strings[i]); 

   idSMTP.Connect; 
   idSMTP.Send(idMessage); 
   idSMTP.Disconnect; 

Application.ProcessMessages; 
Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1); 
if Anzahl.Text=('0') then goto Ende; 
end;
[b]end;[/b]                    

1:

... goto Ende;                    

1:

if Anzahl.Text='0' then Break;                    

1:

for x:=1 to strtoint(Anzahl.text) do                    

1:

For i := 0 To (AbsenderNamenListe.Items.Count-1) do                    

1:

Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1);                    

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

for x:=1 to 10 do
 for y:=1 to 10 do
  begin
    machwas (x,y);
    machnochwas 
  end;                    

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

for x:=1 to 10 do
 begin
  for y:=1 to 10 do
   begin
     machwas (x,y)
     machnochwas 
   end;
  machwasandersmitx(x);
 end;                    

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

Var i,ende:integer;
begin
  ende:=10;
  for i:=1 to ende do
    begin
      ende:=5;
      listbox1.items.add(inttostr(i));
    end;
end;                    

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

var xcount, ycount : integer;

for X := 1 to 10 do

{DAS WÄRE DANN DIE "ZUSAMMENHÄNGENDE" ANWEISUNG !? ... ich dachte hier wäre noch ein "begin" erforderlich ...}
for Y := 1 to 10 do
begin
ycount := ycount +1;
{...}
end;

{BIS HIER ... Y := 0 to 10 ... (und hier eben ein "end;" erforderlich) ...
 ab hier wieder X := 1 to ... ...}
xcount := xcount + 1;
{...}                    

1:
2:
3:
4:
5:

{erste schleife}for x:=1 to 10 do showmessage(inttostr(x)); // erste Schleife ist hier eben abgeschlossen ...
{erste schleife}for y:=1 to 10 do
begin
{... mehrere Anweisungen ...}
end;                    

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

for i:=1 to 10 do
for y:=1 to 10 do
 begin
  doanything;
  doanything2;
 end;
doanything3;//hierstartet der zwite befehl!!                    

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

for x:=1 to strtoint(Anzahl.text) do 
For i := 0 To (AbsenderNamenListe.Items.Count-1) do 
begin 
    idMessage.Body.Add(NachrichtenListe.Items.Strings[i]);
    idMessage.Subject.Add(BetreffListe.Items.Strings[i]);
Application.ProcessMessages; 
Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1); 
if Anzahl.Text=('0') then Break;
end;                    

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

for x:=1 to strtoint(Anzahl.text) do 
begin 
    i := -1;// das diese Zeile nicht geht weis ich aber wie dann?
    idMessage.Body.Add(NachrichtenListe.Items.Strings[i]);
    idMessage.Subject.Add(BetreffListe.Items.Strings[i]);
Application.ProcessMessages; 
Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1); 
if Anzahl.Text=('0') then Break;
end;                    

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

for x := 0 to 10 do 
  for y := 0 to 10 do begin
    Anweisung1
    Anweisung2
    ...
  end;                    

1:

i:=AbsenderNamenListe.Items.Count-1;                    

1:

i:=-1;                    

1:

i:=i-1;                    

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

for x := 0 to 10 do 
begin //Schleife1
  for y := 0 to 10 do 
   begin //Schleife2
     Anweisung1 
     Anweisung2 
    ... 
  end;//Schleife2
end; //Schleife1                    

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

for x:=1 to strtoint(Anzahl.text) do 
begin 
   ...
  Anzahl.text := inttostr(strtoint(Anzahl.Text) - 1); 
  if Anzahl.Text=('0') then Break;
end;                    

1:
2:
3:
4:
5:

for x:=1 to strtoint(Anzahl.text) do 
  for x2:=(strtoint(Anzahl.text) - 1) downto 0 do 
  begin 
     ...
  end;