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

  try
    SollAnzSchiffe[2] := StrToInt(Edit1.Text);
    SollAnzSchiffe[3] := StrToInt(Edit2.Text);
    SollAnzSchiffe[4] := StrToInt(Edit3.Text);
  except
    ShowMessage('Bitte gib eine Zahl ein!');
  end;					

1:
2:
3:
4:

  except
    on Exception do
        ShowMessage('Bitte gib eine Zahl ein!');
  end;					

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

if fkt1 then
  if fkt2 then
    if fkt3 then
    else
  else
else					

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

try
  fkt1
  fkt2
  fkt3
except
  on E: Exception do
    // zentrale Fehlerbhandlung
end;					

1:
2:
3:
4:
5:

try
  application.run;
except
  applicaation.Terminate;
end;					

1:
2:

if not fkt1 then
  exit;					

1:
2:
3:

if fkt1 then
  if fkt2 then
    if fkt3 then					

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

  try
    SollAnzSchiffe[2] := StrToInt(Edit1.Text);
    SollAnzSchiffe[3] := StrToInt(Edit2.Text);



    SollAnzSchiffe[4] := StrToInt(Edit3.Text);
  except
    ShowMessage('Bitte gib eine Zahl ein!');
  end;					

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

procedure Rechne;

  Procedure ShowError(OwnText : String; E : Exception);
  begin
    ShowMessage(OwnText + #13#10#13#10 + 'Systemmeldung: ' + E.Message);
  end;

begin
  Try
    Label1.Caption := FloatToStr(StrToInt(Edit1.Text) / StrToInt(Edit2.Text));
  Except
    on E : EIntOverflow do
      ShowError('Mindestens eine der Verwendeten Zahlen ist zu Groß.', E);
    on E: EZeroDivide do
      ShowError('Der zweite Wert darf nicht Null sein, da es nicht möglich ist durch Null zu teilen.', E);
    on E: Exception do
      ShowError('Ein unbekannter Fehler ist aufgetreten.' , E);
  End;
end;					

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:

function AssertTakeOwnerShip(var TokenHandle: THandle): Boolean;
var
  TakeOwnershipValue: TLargeInteger;
  TokenPrivileges: TOKEN_PRIVILEGES;
  Return: DWORD;
begin
  Result := LookupPrivilegeValue(nil, 'SeTakeOwnershipPrivilege', TakeOwnershipValue);
  if Result then
  begin
    TokenPrivileges.PrivilegeCount := 1;
    TokenPrivileges.Privileges[0].Luid := TakeOwnershipValue;
    TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    AdjustTokenPrivileges(TokenHandle, False, TokenPrivileges, sizeof(TOKEN_PRIVILEGES), nil, Return);
  end;
end;

var
  TokenHandle: THandle = 0;
  SecurityDescriptor: SECURITY_DESCRIPTOR;

label ENDPROG;

begin
  Writeln(APPNAME + ' - ' + VER);
  Writeln(COPYRIGHT);
  Writeln(LF);

  if ParamCount < 1 then
  begin
    Writeln(rsNoFile);
    goto ENDPROG;
  end
  else if ParamCount >= 2 then
  begin
    Writeln(rsTooManyParams);
    goto ENDPROG;
  end;

  Filename := ParamStr(1);
  if (Filename[1] = '-') or (Filename[1] = '/') then
    Filename := copy(Filename, 2, length(Filename));

  if FileExists(Filename) then
  begin
    if InitVars then
    begin
      if GetTokenHandle(TokenHandle) then
      begin
        // Attempt to put a NIL Dacl on the object
        InitializeSecurityDescriptor(@SecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);
        if SetSecurityDescriptorDacl(@SecurityDescriptor, True, NIL, False) then
        begin
          if SetFileSecurity(@Filename[1], DACL_SECURITY_INFORMATION, @SecurityDescriptor) then
          begin
            Writeln(rsSuccess);
            goto ENDPROG;
          end

          else  // Attempt to make the Adminstrator the owner
          begin
            if SetSecurityDescriptorOwner(@SecurityDescriptor, AliasAdminSID, False) then
            begin
              if SetFileSecurity(@Filename[1], OWNER_SECURITY_INFORMATION, @SecurityDescriptor) then
              begin
                Writeln(rsSuccess);
                goto ENDPROG;
              end
              else  // Assert TakeOwnerShip privileges and try again
              begin
                if AssertTakeOwnerShip(TokenHandle) then
                begin
                  if SetFileSecurity(@Filename[1], OWNER_SECURITY_INFORMATION, @SecurityDescriptor) then
                  begin
                    Writeln(rsSuccess);
                    goto ENDPROG;
                  end
                  else  // Try to put a benign Dacl onto the file again
                  begin
                    if SetFileSecurity(@Filename[1], DACL_SECURITY_INFORMATION, @SecurityDescriptor) then
                    begin
                      Writeln(rsSuccess);
                      goto ENDPROG;
                    end
                    else
                    begin
                      Writeln(rsError);
                      goto ENDPROG;
                    end;
                  end;
                end
                else
                begin
                  Writeln(rsNoPrivOwnership);
                  goto ENDPROG;
                end;
              end;
            end;
          end;
        end
        else
        begin
          Writeln(rsNoSecDes);
          goto ENDPROG;
        end;
      end
      else
      begin
        Writeln(rsNoToken);
        goto ENDPROG;
      end;
    end
    else
    begin
      Writeln(rsNoSID);
      goto ENDPROG;
    end;
  end
  else
    Writeln(rsFileNotExists);					

1:
2:

if SetFileSecurity(@Filename[1], OWNER_SECURITY_INFORMATION, @SecurityDescriptor) then
  Writeln(rsSuccess);