Komisches Sprachkonstrukt - zwei Rümpfe in Prozedur

[nicodex]

Das Konstrukt lässt sich bei mir nicht kompilieren (Delphi 2007). Ich vermute also auch, dass es sich um eine lokale Prozedur handelt.

Was allerdings funktioniert, ist dieses merkwürdige (uralte) Konstrukt:

Delphi-Quellcode:

unit Foo;

interface

implementation

uses
  Dialogs;

procedure Bar();
begin
  ShowMessage('Hallo, World!');
end;
begin  // This should be read as 'initialization'
  Bar();
end.