field or method identifier expected错误

Question

代码如下，编译的时候报field or method identifier expected，为啥呀？怎么解决
unit TestUtil;interfacetype
  ItemGroup = class(TObject)
  private
    ID : Integer;
    GroupName : String;
  public    property ItemGroupID : Integer read getID write setID;
    property ItemGroupGroupName : String read getGroupName write setGroupName;    procedure setID(ItemGroupID : Integer);
    function getID:Integer;
    procedure setGroupName(ItemGroupGroupName : String);
    function getGroupName:String;
    { Public declarations }
  end;
implementation
  function ItemGroup.getGroupName: String;
  begin
    Result := GroupName;
  end;  function ItemGroup.getID: Integer;
  begin
    Result := ID;
  end;  procedure ItemGroup.setGroupName(ItemGroupGroupName: String);
  begin
    if GroupName <> ItemGroupGroupName then
      GroupName := ItemGroupGroupName;
  end;  procedure ItemGroup.setID(ItemGroupID: Integer);
  begin
    if ID <> ItemGroupID then
      ID := ItemGroupID;
  end;end.

Answer 1

type
  ItemGroup = class(TObject)
  private
    ID : Integer;
    GroupName : String;
    {-------------------------------------------------------注意方法定义顺序}
    procedure setID(ItemGroupID : Integer);
    function getID:Integer;
    procedure setGroupName(ItemGroupGroupName : String);
    function getGroupName:String;
  public
    property ItemGroupID : Integer read getID write setID;
    property ItemGroupGroupName : String read getGroupName write setGroupName;    { Public declarations }
  end;