Ошибка компиляции

[promer]

Приветствую всех!
Наверно мой вопрос вызовет шквал улыбок и колких замечаний типа
"учите матчасть", но заслужил так заслужил...

Работаю в Delphi 5. Подключаю фрейм. Все нормально. В фрейме
объявляю процедуру.

unit KFIDU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, ToolEdit, CurrEdit;

type
  TKFID = class(TFrame)
    Day: TCurrencyEdit;
    MN: TCurrencyEdit;
    Year: TCurrencyEdit;
    MC: TEdit;
    //Format_D(p_data: TDateTime);
  private
    { Private declarations }
  public
    { Public declarations }
    AAA(p_data: TDateTime);
  end;

implementation

{$R *.DFM}

procedure TKFID.AAA(p_data: TDateTime);
begin
  //DecodeDate(p_d, _year, _mn, _year);


end;

end.

На сторке "AAA(p_data: TDateTime);" компилятор выдает:

',' or ';' expeected but '(' found

и далее на строке "procedure TKFID.AAA(p_data: TDateTime);

Declaration of 'AAA' differs from previous declaration

В чем дело? Премного благодарен...

[Аватар]

Откуда компилятору знать, что ААА процедура?

[promer]

Спасибо! Век живи, век учись.. Стыдно...