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

unit Unit1;

interface

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

type
  // Определение интерфейса
  IVehicle = Interface(IInterface)
    // Свойства и их функции
    function GetAge   : Integer;
    function GetMiles : Integer;
    property age   : Integer read GetAge;
    property miles : Integer read GetMiles;

    // Функция без свойств
    function GetValue : Currency;
  end;

  // Выполнение этого интерфейса в классе car
  // Обратите внимание, что TInterfaceObject определяет для нас
  // QueryInterface, _AddRef, _Release функции
  TCar = Class(TInterfacedObject, IVehicle)
  private
    fAge, fMiles : Integer;
    fCarType : string;
    function GetAge   : Integer;
    function GetMiles : Integer;
  public
    property age     : Integer read GetAge;
    property miles   : Integer read GetMiles;
    property carType : string  read fCarType;

    // Функции без свойств
    function GetValue : Currency;
  published
    constructor Create(age, miles : Integer; carType : string);
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Конструктор Car
constructor TCar.Create(age, miles: Integer; carType: string);
begin
  // Сохраняем параметры
  fAge     := age;
  fMiles   := miles;
  fCarType := carType;
end;

// Получение возраста автомобиля
function TCar.GetAge: Integer;
begin
  Result := fAge;
end;

// Получение пробега автомобиля
function TCar.GetMiles: Integer;
begin
  Result := fMiles;
end;

// Вычисление цены автомобиля
function TCar.GetValue: Currency;
begin
  Result := 10000.0 - ((age * miles)/10.0);
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
var
  car : TCar;
begin
  // Создание car!
  car := TCar.Create(1, 2076, 'Honda Jazz');

  // Показ текущей цены этой машины
  ShowMessageFmt('Мой автомобиль %s, возраст %d г, пробег %d миль, цена %m',
                 [car.carType, car.age, car.miles, car.GetValue]);
end;

end.