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

unit Unit1;

interface

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

type
  // Класс с Индексированными свойствами
  TRectangle = class
  private
    fArea   : LongInt;
    fCoords : array[0..3] of Longint;
    function  GetCoord(Index: Integer): Longint;
    procedure SetCoord(Index: Integer; Value: Longint);
  public
    Property Area   : Longint read fArea;
    Property Left   : Longint Index 0 read GetCoord write SetCoord;
    Property Top    : Longint Index 1 read GetCoord write SetCoord;

    Property Right  : Longint Index 2 read GetCoord write SetCoord;
    Property Bottom : Longint Index 3 read GetCoord write SetCoord;
    Property Coords[Index: Integer] : Longint read GetCoord write SetCoord;

    constructor Create;
  end;

  // Сам класс формы
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Свойство TRectangle подпрограмма 'Получатель'
// Конструктор TRectangle
constructor TRectangle.Create;
begin
  // Задание координат прямоугольника по умолчанию
  left   := 0;
  right  := 100;
  top    := 0;
  bottom := 100;
  fArea  := 100 * 100;
end;

function TRectangle.GetCoord(Index: Integer): Longint;
begin
  // Только разрешенные допустимые индексные значения
  if (Index >= 0) and (Index <= 3)
  then Result := fCoords[Index]
  else Result := -1;
end;

// Свойство TRectangle подпрограмма 'Установщик'
procedure TRectangle.SetCoord(Index, Value: Integer);
begin
  // Только разрешенные допустимые индексные значения
  if (Index >= 0) and (Index <= 3)
  then
  begin
    // Сохранений нового значения
    fCoords[Index] := Value;

    // И обновление площади прямоугольника
    fArea := (right - left) * (bottom - top);
  end;
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
var
  myRect : TRectangle;
  i : Integer;

begin
  // Создание моего маленького прямоугольника с заданными по умолчанию координатами
  myRect := TRectangle.Create;

  // И установка угловых координат
  myRect.Left := 22;       // Левых используя прямой метод
  myRect.Top  := 33;
  myRect.SetCoord(2,44);   // Правых используя индексированный метод
  myRect.SetCoord(3,55);

  // И спрос этих значений
  for i:= 0 to 3 do
    ShowMessageFmt('myRect coord %d = %d',[i,myRect.GetCoord(i)]);

  // И показ площади прямоугольника
  ShowMessageFmt('площадь myRect= %d',[myRect.Area]);
end;

end.