Bei uns sieht's üblicherweise so aus:
Delphi-Quellcode:
//
// Einleitender Kommentar zu dieser Routine (falls erforderlich)
//
if x = y then
begin
// Eine Anweisung
end
else if y = z then
begin
// mehrere Anweisungen
end
else
begin
// mehrere Anweisungen
end;
//
// Nächste Routine ...
Einzelne Anweisungen ohne
begin ... end mache ich eigentlich nur bei Debug-Anweisungen, die wieder rausgenommen, bzw. auskommentiert werden. Falls hinter der Bedingung irgendwann weitere Anweisungen kommen, kann man so nervige Fehler vermeiden.