// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем Unit1 и с формой
// названную Form1, которая имеет событие OnCreate названное FormCreate.

unit Unit1;

interface

uses
  SysUtils, Forms, Dialogs;

type
  // Определение классов в самом начале этого Модуля для ясности
  TForm1 = Class;          // Это опережающее определение класса

  TFruit = Class(TObject)  // Это фактическое определение класса :
    // Внутреннее определение полей класса - доступны только в этом модуле
    private
      isRound  : Boolean;
      length   : single;
      width    : single;
      diameter : single;
    // Поля и методы, доступные только для этого класса и потомков
    protected
    // Внешне доступные поля и методы
    public
      // 2 конструктора - один для круглого фрукта, другой для удлинённого фрукта (fruit)
      constructor Create(diameter : single);               overload;
      constructor Create(length : single; width : single); overload;
    // Внешне доступные и видимые поля и методы
    published
      // Обратите внимание, что свойства должны использовать разные имена для местных определений
      property round : Boolean
        read   isRound;
      property len   : single
        read   length;
      property wide  : single
        read   width;
      property diam  : single
        read   diameter;
  end;                    // Конец определения класса TFruit

  // Фактически, класс TForm1 теперь определен
  TForm1 = Class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ShowFruit(fruit : TFruit);
  private
    // Нет локальных данных
  public
    // Используются только публичные определения предков класса TForm
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Создание круглого объекта fruit
constructor TFruit.Create(diameter: single);
begin
  // Указываем, что мы имеем круглый fruit, и установка его размера
  isRound       := true;
  self.diameter := diameter;
end;

// Создание удлинённого объекта fruit
constructor TFruit.Create(length, width: single);
begin
  // Указываем, что мы имеем удлинённый fruit, и установка его размера
  isRound     := false;
  self.length := length;
  self.width  := width;
end;

// Объект формы - действие, предпринимаемое, когда форма создана
procedure TForm1.FormCreate(Sender: TObject);
var
  apple, banana : TFruit;
begin
  // Позволяет нам создавать наши fruit объекты
  apple  := TFruit.Create(3.5);
  banana := TFruit.Create(7.0, 1.75);

  // Показ подробностей о наших фруктах
  ShowFruit(apple);
  ShowFruit(banana);
end;

// Показ, каковы характеристики нашего плода
procedure TForm1.ShowFruit(fruit: TFruit);
begin
  if fruit.round
  then ShowMessage('Мы имеем круглый фрукт с диаметром = '+
                   FloatToStr(fruit.diam))
  else
  begin
    ShowMessage('Мы имеем удлинённый фрукт');
    ShowMessage('    его длина = '+FloatToStr(fruit.len));
    ShowMessage('    его ширина  = '+FloatToStr(fruit.wide));
  end;
end;

end.