Высокоуровневые методы информатики и программирования. Сивохин А.В - 85 стр.

     // 2.Объвления для модуля OrlovRecordUnit:

     // а)для типа записи таблицы "Аукционы":
     Type
       TOrlovAuctionsRecord = Record {Аукционы}
        ID_Auctions : Integer; {Индивидуальный номер аукциона}
        Date_U : TDateTime; {Дата проведения}
        Place    : String[40]; {Место}
        Specifics : String[60]; {Специфика}
       end;

     // б)для типизированной константы таблицы "Аукционы":
     Const
       ConstOrlovAuctionsRecord : TOrlovAuctionsRecord = {Аукционы}
        (ID_Auctions : 3024773;                {Индивидуальный номер аукциона}
         Date_U : 12/04/2003;                {Дата проведения}
         Place    : 'Саратовская область,д.Березовка';{Место}
         Specifics : 'Антикварные изделия';       {Специфика}
        );

     // в)для переменной таблицы "Аукционы" с инициализацией:
     Var
       ModOrlovAuctionsRecord : TOrlovAuctionsRecord = {Аукционы}
        (ID_Auctions : 453277654;           {Индивидуальный номер аукциона}
         Date_U       : 25/03/2005;      {Дата проведения}
         Place     : 'г.Пенза, ул.Мира';  {Место}
         Specifics   : 'Речные катера';   {Специфика}
        );

     // г)для переменной без инициализации таблицы "Аукционы":
       VarOrlovAuctionsRecord : TOrlovAuctionsRecord;

     // 3.Объиления для модуля OrlovClassUnit:

     // а)для базового класса таблицы "Аукционы":
     Type
       TIdentAuctionsClass=Class(TObject)
        private
         ID_Auctions : Integer;
        public
         constructor Create(ParamID_Auctions : Integer);
         procedure SetID_Auctions(ParamID_Auctions : Integer);
         function GetID_Auctions : Integer;
        end;

     // б)для класса таблицы "Аукционы":
62