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

procedure dosomething;
begin
  if not myBoolean then Exit;
  {langer Prozedurequelltext, der sonst hier ins else müsste(bzw. not else -> hauptteil)}
end;

function search(aSearchFor: Variable): Variable;
var
  i: Integer;
begin
  for k := 0 to LimitI do
    if ... then beign
      ...
      Break;
    end;
end;                    

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

procedure dosomething;
begin
  if myBoolean then 
  begin
    {langer Prozedurequelltext, der sonst hier ins else müsste(bzw. not else -> hauptteil)}
  end;
end;

function search(aSearchFor: Variable): Variable;
var
  i: Integer;
begin
 k := 0;
 while (k <= limitI) and ... do
 begin

  inc(k);
 end;                    

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

procedure doSomeThing(X, Y, Z: Integer);
begin
  try
    if myArray[X, Y, Z] then Exit;  //der Einfachheit halber ein Array of Boolean
  except //unzulässige Indizes ignorieren
  end;
  //eigentlicher Prozedurtext
end;                    

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

i := 0;
  While (i<10) and not found Do Begin
  k := 0;
  while (k<100) and not found Do Begin
    j := 0;
    while (j<50) and not found Do Begin
      ...
      if StopTheLoops (i,j,k) Then found := True;
    End
  End
End                    

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

For i:=0 to 9 do
  For k:=0 to 99 do
    For j := 0 to 49 do begin
      ...
      if StopTheLoops (i,j,k) Then Goto DoneLoop;
    End;

DoneLoop: 
 ...                    

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

ReturnCode := Step1;
If ReturnCode = RETURN_OK Then Begin
  ReturnCode := Step2;
  If ReturnCode = RETURN_OK Then Begin
    ReturnCode := Step3;
    If ReturnCode = RETURN_OK Then Begin
      ReturnCode := Step4;
      If ReturnCode = RETURN_OK Then Begin
        ReturnCode := Step5;
        ReportSuccess;
      End 
      Else 
        ShowError (ReturnCode)
     End 
     Else 
       ShowError (ReturnCode)
   End 
   Else 
     ShowError (ReturnCode)
  End 
  Else 
    ShowError (ReturnCode)
End 
Else 
 ShowError (ReturnCode);                    

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

Try
  Step1;
  Step2;
  Step3;
  Step4;
  Step5;
Except
  On E:Exception Do
    ShowError (E.ReturnCode)
End;                    

1:
2:
3:
4:

if not(Step1 or Step2 or Step3 or Step4 or Step5) then
  ShowError (ReturnCode)

else ReportSuccess;                    

1:
2:
3:
4:
5:

try
  {Code, bei dem EMyException auftreten kann}
except
  on E: EMyException do Exit else raise;
end;                    

1:
2:
3:
4:
5:

try
  {Code, bei dem EMyException auftreten kann}
except
  on E: EMyException do Exit else raise;
end;                    

1:
2:
3:
4:
5:

try
  {Code, bei dem EMyException auftreten kann}
except
  on not (E: EMyException) do raise;  //oder wie?
end;                    

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

Try
  Try
    Foobar;
  Except
    On E:EMyException Do; // Nur EMyException ignorieren
    On E:Exception Do Raise;
  End
Except
 On E:Exception Do Begin
  ... // Ab hier werden Alle Exception außer EMyException behandelt.
 End
End;                    

1:
2:

RemoteConnection.Connect;
RemoteConnection.SendData; // Hier knallt es, wenn der Verbindungsaufbau nicht geklappt hat.                    

1:
2:

  RemoteConnection.Connect;
  RemoteConnection.SendData; // Wird nicht aufgerufen da das 'Connect' eine Exception wirft.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var X: Integer;

function Foo1: Boolean;
begin
    try
        Result := Foo2;
    except
        Raise Exception.Create('Foo1');
    end;
end;

function Foo2: Boolean;
begin
    try
        Result := Foo3;
    except
        Raise Exception.Create('Foo2');
    end;
end;

function Foo3: Boolean;
begin
    try
        Result := 42 div x = 42;
    except
        Raise Exception.Create('Foo3');
    end;
end;                    

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

While SomeCondition Do
  While AnotherCondition Do
    While FinalCondition Do
      If StopAllLoops Then Goto EndLoops;

EndLoops: ...                    

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

Procedure...
  Procedure _DoTheLoop;
  Begin
    While SomeCondition Do
      While AnotherCondition Do
        While FinalCondition Do
          If StopAllLoops Then Exit;
  End;

Begin
  _DoTheLoop;
...                    

1:
2:
3:
4:

while SomeCondition do
  while AnotherCondition do
    while FinalCondition do
      if StopAllLoops then Break;