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

unit Unit1;

interface

uses
  Forms, Dialogs, Classes, Controls, StdCtrls, SysUtils;

type
  // Определение базового класса TSquare :
  // Он имеет частные данные, которые могут быть только установлены защищенным методом
  TSquare = class
  private           // Известный только родительскому классу
    squareArea : Integer;
  Protected         // Известный всем классам в иерархии
    squareWidth, squareHeight : Integer;
    procedure setArea;
  public            // Внешне видимый пользователями класса
    property width  : Integer read squareWidth;
    property height : Integer read squareHeight;
    property area   : Integer read squareArea;
  published         // Внешне видимый: имеет также информацию во время выполнения
    constructor Create(width, height : Integer);
  end;

  // Определение порожденного типа:
  // Он должен использовать защищенный родительский метод для установки
  // частной площади квадрата
  TChangeableSquare = class(TSquare)
  public
    procedure ChangeSize(newWidth, newHeight : Integer);
  end;

  // Определение класса формы используемой этим модулем
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} // Вложение определений формы

// Создание объекта TSquare
constructor TSquare.Create(width, height: Integer);
begin
  // Сохранение ширины и высоты в защищенных полях
  squareWidth  := width;
  squareHeight := height;

  // И вычисление площади квадрата
  setArea;
end;

// Изменение измерений TSquare
procedure TChangeableSquare.ChangeSize(newWidth, newHeight: Integer);
begin
  // Перезапись первоначальных значений ширины и высоты
  squareWidth  := newWidth;
  squareHeight := newHeight;

  // И пересчёт площади квадрата
  setArea;
end;

// Установка размера квадрата из его измерений
procedure TSquare.setArea;
begin
  // Вычисление площади квадрата и конфиденциальное сохранение
  squareArea := width * height;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  mySquare : TChangeableSquare;
begin
  // Создание изменяемого квадрата
  mySquare := TChangeableSquare.Create(30, 40);

  // Какова сейчас площадь квадрата?
  ShowMessage('Квадрат 30,40 площадь = '+IntToStr(mySquare.area));

  // Изменение измерений квадрата
  mySquare.ChangeSize(10,20);

  // Какова сейчас площадь квадрата?
  ShowMessage('Квадрат 10,20 площадь = '+IntToStr(mySquare.area));
end;

end.