Überraschendes Verhalten im if-else if-Konstrukt

[Delphi.Narium]

Noch 'ne Variante:

Delphi-Quellcode:

     if Form1.Caption = 'ksjhdgk' then ShowMessage('1')
else if Form1.Caption = 'fgjfstj' then if Button1.Caption = 'Button1' then ShowMessage('2')
                                  else if Form1.Caption = 'Form1' then ShowMessage('3');

Ganz offensichtlich wird es als Einzeiler:
if Form1.Caption = 'k' then ShowMessage('1') else if Form1.Caption = 'f' then if Button1.Caption = 'Button1' then ShowMessage('2') else if Form1.Caption = 'Form1' then ShowMessage('3');

Und nein: Das ist kein guter Programmierstil.

Wer geschachtelte If-Then-Else-Konstrukte ohne Begin-End schreibt, sollte die implementierte Logik schon sehr gut abstrahieren können, sonst wird es sehr schnell sehr unübersichlich und extrem fehleranfällig.

Kurzer Code ist gut.
Übersichtlicher und verständlicher ist besser