[sorockinalex]

нашёл пример bpl, решил его использовать
http://www.delphikingdom.com/asp/vie...?catalogid=274

адаптирую свой старый юнит с формой, но вылетает ошибка:
Method 'Exporter Name' not found in base class..
Где ошибка?

Код:

unit FieldEdit;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  DataModule;

type
  TFieldEditForm = class(TForm)
    FieldEdit: TEdit;
    Label3: TLabel;
    AddButton: TButton;
    CancelButton: TButton;
    EditButton: TButton;
    procedure AddButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
    class function ExporterName: string; override;
  end;

var
  FieldEditForm: TFieldEditForm;
  InputFieldKey, InputFieldName, OutputFieldKey, OutputFieldName:string;

implementation

uses
  UClassManager;
  
{$R *.dfm}

class function TFieldEditForm.ExporterName: string;
begin
  Result := 'Редактирование месторождения';
end;

procedure TFieldEditForm.AddButtonClick(Sender: TObject);
begin
end;

procedure TFieldEditForm.FormShow(Sender: TObject);
end;

procedure TFieldEditForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
end;

{ ============================================= }
initialization
{ ============================================= }
ClassManager.Add(TFieldEditForm);

{ ============================================= }
finalization
{ ============================================= }
ClassManager.Remove(TFieldEditForm);

end.

Код:

{ ============================================= }
unit UClassManager;
{ ============================================= }

{ ============================================= }
interface
{ ============================================= }
uses
  Classes;
  
type
  TClassManager = class(TList);

function ClassManager: TClassManager;

{ ============================================= }
implementation
{ ============================================= }
var
  Manager: TClassManager;

function ClassManager: TClassManager;
begin
  Result := Manager;
end;

{ ============================================= }
initialization
{ ============================================= }
Manager := TClassManager.Create;

{ ============================================= }
finalization
{ ============================================= }
Manager.Free;


end{ ========================================== }.