[Nec]

Код:

type
...
TKeyWord  = class
    KeyWord     : string;
    RequestCnt  : integer;
    Checked     : boolean;
  end;

   TKeyWordList  = class(TList)
    MaxCount    : integer;
    UseMaxCount : boolean;
    function AddKeyWord(KW : TKeyWord) : boolean;
    procedure MakeKeyCheked(KW : string);
    function CountNotChecked : integer;
    function FindNextNotCheckedKeyWord : string;
    constructor Create;
  public
    procedure FreeInstance; override;
  end;

Admin: Пользуемся тегами для оформления кода!

Выдает ошибку .
[Error] Unit1.pas(28): Unsatisfied forward or external declaration: 'TKeyWordList.AddKeyWord'

Подскажите что не так?