1begin
2  //Другие операторы
3end

Операторы, размещенные внутри составного оператора, разделяются точкой с запятой. Никаких ограничений на состав операторов и количество уровней вложенности не накладывается.

Пример

1begin 2 Result := LCurrentValue; 3 Exit; 4end;