Ошибка при добавлении нового объекта

[Сергей089]

Здравствуйте. Из-за чего при добавлении в DataModule нового объета выскакивают ошибки "Expected ';' but an identifier found." или "Expected ':' but an identifier found."? После этих ошибок и удалить ничего с DataModule не получается.
Ошибка 1.bmp
Как от них избавиться? Есть ли ограничение на количество объектов в модуле?

[_Engine_]

Видимо из-за того, что двоеточие пропущено

[Сергей089]

Вроде все знаки на месте.

unit dataunit;

interface

uses
  SysUtils, Classes, DB, ADODB, IdUDPClient, IdBaseComponent, IdComponent,
  IdUDPBase, IdUDPServer, idSocketHandle;

type
  TDataForm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
...
    ADOStoredProc1: TADOStoredProc;
    ADOStoredProc2: TADOStoredProc;
    ADOStoredProc3: TADOStoredProc;
    ADOStoredProc4: TADOStoredProc;
    ADOStoredProc5: TADOStoredProc;
    procedure DataModuleCreate(Sender: TObject);
    procedure ADOTable2ABS_E1GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOTable2ABS_E2GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOTable2ABS_E3GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOTable2DOPUSKGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOTable2ABS_PRIORGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOTable2ABS_OR_EGEGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOTable2ABS_OR_ATTGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    procedure ADOTable2AfterPost(DataSet: TDataSet);
    procedure ADOTable2AfterDelete(DataSet: TDataSet);
    procedure ADOTable1AfterDelete(DataSet: TDataSet);
    procedure ADOTable1AfterPost(DataSet: TDataSet);
    procedure SPEC_AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Курсор становится между "procedure ADOTable1AfterPo" и "st(DataSet: TDataSet);", но здесь ничего не должно быть!