Komisches Sprachkonstrukt - zwei Rümpfe in Prozedur

[BloodySmartie]

Also leider kann ich den Code noch nicht kompilieren, da der Quelltext unvollständig ist und mir die fehlenden Teile erst noch zugesandt werden.

Wenn man genau hinsieht, handelt es sich aber nicht um ein Compound Statement:

Delphi-Quellcode:

//Compound Statement:
procedure foo;
begin
  ...
    begin
      ...
    end;
  ...
end;

//Aber in meinem Fall sind die Blöcke nicht verschachtelt, sondern hintereinander angeordnet:
procedure bar;
begin
  ...
end;
begin
  ...
end;