Поскольку класс это - тип, то он, естественно, объявляется в разделе type. Для описания нового класса в языке Delphi используется зарезервированное слово class.

type

<имя_нового_класса>=class (<имя_наследуемого_класса>)
private
  // частные элементы класса
protected
  //  защищенные элементы класса
public
  // общедоступные элементы класса 
published
  // опубликованные элементы класса
end;

Во всем объявлении класса единственным обязательным атрибутом является имя нового класса, которое должно быть уникальным (не должно повторяться) в рамках всей библиотеки классов, которая в Delphi называется Visual Component Library (VCL).

В соответствии с принципом наследования каждый новый класс наследует реализацию и интерфейс от своего непосредственного предка, имя которого указывается в скобках после зарезервированного слова class. Библиотека VCL устроена так, что все классы имеют оного общего предка типа TObject. Поэтому если даже имя наследуемого класса не указывать, то будет подразумеваться TObject.

type TMyClass = class
      ... 
     end;

type TMyClass = class(TObject) 
      ... 
     end;

Директивы private, protected, public и published предназначены для разграничения доступа к элементам класса. Обычно они расположены в порядке строгости.

Так, в секции private содержит «внутренние (частные)» элементы класса, обращение к которым возможно только в пределах модуля, содержащего объявление класса. Ни наследники класса, объявленные в другом модуле, ни другие объекты приложения не имеют доступа к элементам секции private. Другими словами, секция private - «частная собственность» класса.

Секция protected содержит «защищенные» элементы, доступ к которым имеют только классы-наследники (потомки). Никакие объекты приложения (в том числе и класса-наследника) не имеют доступа к элементам этой секции.

Секция public содержит «общедоступные» элементы, обращение к которым возможно из любой части программы во время ее выполнения (так называемого Runtime).

Секция published содержит «опубликованные» элементы, обращение к которым возможно не только из любой части программы во время ее выполнения, но и во время проектирования (Designtime).

Если явно не указать директиву видимости, то атрибут класса по умолчанию будет published если класс компилируется при включенной директиве компилятора {$M+} или класс унаследован от класса, откомпилированного при этой включенной директиве {$M+}. Во всех других случаях по умолчанию видимость - public.

Потомки класса могут повышать доступность элементов, объявленных в секциях protected и public, перемещая их в более доступные секции.

Разработаем для примера объектную модель телефона.

TPhone=class
end;

Пока от такого «телефона» мало пользы, но по ходу обсуждения мы будем наращивать этот «скелет».

Все объекты Delphi являются динамическими, а переменная классового типа фактически является указателем на объект. Поэтому для работы с экземпляром класса (объектом) необходимо его создать, выделив необходимое количество оперативной памяти. Для этого используются специальные методы класса, называемые «конструкторами».

Обратите внимание на то, что при создании нового объекта в памяти выделяется место только для его полей. Методы, как и обычные процедуры и функции, помещаются в область кода программы. Они работают со всеми экземплярами своего класса и поэтому не дублируются в памяти.

По окончании работы с объектом необходимо удалить его из динамической памяти с помощью специального метода, называемого «деструктором».

В любом классе есть хотя бы один конструктор с именем Create и хотя бы один деструктор Destroy, объявленные в TObject.

var
  Phone:TPhone;
begin
  Phone:= TPhone.Create;
  // Код работы с объектом
  if Assigned(Phone) then Phone.Destroy; 
    // или просто Phone.Free;
end;

Совокупность значений полей объекта определяет его состояние. Изменение их значений отражает изменение состояния моделируемого объекта. Реакция на происходящие события описывает его взаимоотношения с другими объектами.

Поля объекта по сути дела представляют собой переменные, объявленные внутри класса. Они могут быть любого типа, в том числе и классового.

Обычно они размещаются в секции private и используются для внутренних нужд объекта (например, для хранения значений свойств). Все поля связываются статически, то есть ссылки на них формируются на этапе компиляции и не могут быть изменены.

Воздействие на объект осуществляется путем изменения его полей и вызова его методов. При этом названия полей и методов отделяются от имени объекта точкой.

Продолжим пример с телефоном. Допустим, для некоторой интерактивной программы-каталога нам необходимо создать объектную модель телефонной техники, позволяющую продемонстрировать не только внешний вид, но и имитировать работу телефона. Очевидно, что телефонные аппараты (стационарные, мобильные различных стандартов, факсы) обладают схожим, но не одинаковым набором свойств и реализованных в них методов. Поэтому для построения иерархии необходимо объявить общего предка. Назовем его просто TPhone и будем понимать под ним некий абстрактный телефон.

TPhone=class(TObject)
    procedure Incoming; // входящий звонок
    procedure Ring;     // звонить
    procedure HandUp;   // ответить (снять трубку)
end;

TRoomPhone=class(TPhone)// комнатный телефон
    procedure Incoming; // входящий звонок
    procedure Ring;     // звонить
    procedure HandUp;   // ответить (снять трубку)
end;
TCellPhone=class(TPhone) // мобильный телефон
    procedure Incoming;  // входящий звонок
    procedure Ring;      // звонить
    procedure HandUp;    // ответить (снять трубку)
end;

Телефоны реагируют на входящие звонки по-разному: у простого комнатного просто звонит звонок, а мобильный проигрывает определенную мелодию и включает подсветку экрана. Поэтому и реализация методов Ring у них будет отличаться.

TPhone=class(TObject)
    procedure Incoming; // входящий звонок
    procedure Ring; virtual;// виртуальный метод
    procedure HandUp; // ответить (снять трубку)
end;
TRoomPhone=class(TPhone) // комнатный телефон
    procedure Ring; override; // переопределенный метод
    procedure HandUp; // ответить (снять трубку)
end;
TCellPhone=class(TPhone) // мобильный телефон
    procedure Ring; override; // переопределенный метод
    procedure HandUp; // ответить (снять трубку)
end;

TPhone=class(TObject)
    procedure Incoming; // входящий звонок
    procedure Ring; virtual;   // звонить
    procedure HandUp; virtual; abstract; // как-то ответить 
end;	

TRoomPhone=class(TPhone) // комнатный телефон
    procedure Ring; override;   // звонить
    procedure HandUp; override; // ответить с комнатного
end;

TCellPhone=class(TPhone) // мобильный телефон
    procedure Ring; override;    // звонить
    procedure HandUp; override;  // ответить с мобильного 
end;