This operation is not defined for system tables.
unsuccessful metadata update.
COMMENT ON NEW_PACKAGE failed.
Package NEW_PACKAGE not found.

CREATE package ttt
as
begin
  function f returns integer;
end

CREATE package body ttt
as
begin
  function f returns integer
  as
  begin
    begin
      return 1;
  end -- Ошибка, нет закрывающего end
end

Error Message:
----------------------------------------
List index out of bounds (10)

[00512C11] TntClasses.TTntStrings.Error (Line 849, "TntClasses.pas" + 1) + $11
[00512C11] TntClasses.TTntStrings.Error (Line 849, "TntClasses.pas" + 1) + $11
[00513D5C] TntClasses.TTntStringList.Get (Line 1529, "TntClasses.pas" + 1) + $13
[00E0AA9A] PackageEditorF.TPackageEditorForm.Compile (Line 295, "PackageEditorF.pas" + 57) + $5
[00E0B2A6] PackageEditorF.TPackageEditorForm.actCompileExecute (Line 447, "PackageEditorF.pas" + 0) + $2
[004DF300] dxBar.TdxBarItemControl.ControlUnclick (Line 22610, "dxBar.pas" + 28) + $7

---------- STATEMENT ----------

CREATE PACKAGE BODY TEST2
AS
begin
  function f returns integer
  as
  begin
    begin
    return 1
  end
end



---------- ERROR MESSAGE ----------

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 9, column 3.
end.