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

for ii := 1 to [..] do
     begin
          if Vorgang_abbrechen = true then
             begin
                  ii := ii - 1;  // das funktioniert an dieser Stelle nicht, weil der Compiler meckert
             end;
          Vorgang_abbrechen := false;   

        repeat
          [..]
        until Vorgang_abbrechen or [..];
        if Auftrag_unterbrechen then begin break; end
        else if Vorgang_abbrechen then begin continue; end;					

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

var
  i: Integer;
begin
  for i := 1 to 1 do
  begin
    Integer(Pointer(@i)^) := i-1;
    ShowMessage('Aufruf Nr.: '+IntToStr(i));
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var pt: ^integer;
    i: integer;
begin
  for i := 0 to 99 do
  begin
    pt := @i;
    pt^ := 99;
    ShowMessage(inttostr(i));
  end;
end;					

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

function IndexOf(const Needle: String; Haystack: TStrings): Integer;
begin
  for Result := 0 to Haystack.Count-1 do
    if (Haystack[Result] = Needle) then
      Exit;
  Result := -1;
end;					

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

function IndexOf(const Needle: String; Haystack: TStrings): Integer;
var i : Integer;
begin
  i := 0;
  Result := -1;
  while (i <= Haystack.Count - 1) and (result = -1) do
  begin
    if (Haystack[i] = Needle) then
      Result := i;
    inc(i);
  end;
end;					

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

function TForm1.IndexOf(const Needle, Haystack: Pointer): Integer;
var sref: ^string;
    tsref: ^TStrings;
    label lbl;
begin
   sref := Needle;
   tsref := Haystack;
   for Result := 0 to tsref^.Count - 1 do
   begin
     if tsref^[Result] = sref^ then
       goto lbl;
   end;
   lbl:
end;					

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

function TForm1.IndexOf(const Needle, Haystack: Pointer): Integer;
  label lbl;
begin
   for Result := 0 to TStrings(Haystack^).Count - 1 do
   begin
     if Tstrings(Haystack^)[Result] = string(Needle^) then
       goto lbl;
   end;
   Result := -1;
   lbl:
end;					

1:
2:
3:
4:
5:

for i := 1 to 20 do
  if i = 12 then
    asm
      dec  i
    end;