Über die 1000 Zeilen hatte man sich bereits auf Seite 1 aufgeregt.
Als bekennender "Keine unnötigen Klammern oder Begin-End und Bedin-End in selber Zeile"-Fetischist kann ich das Problem nicht erkennen.
Delphi-Quellcode:
if Bedingung1 then
...
else if Bedingung2 then
...
else if Bedingung3 then
...
else
...;
if Bedingung1 then begin
...
end else begin
...
end;