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

     unit OrlovRecordUnit;//—5. Модуль для работы с записями:

     interface

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

     type
      TOrlovRecordForm = class(TForm)
       InitiButton: TButton;
       ModButton: TButton;
       InButton: TButton;
       ClearButton: TButton;
       OutButton: TButton;
       ExitButton: TButton;
       ID_AuctionsEdit: TEdit;
       Date_UEdit: TEdit;
       PlaceEdit: TEdit;
       SpecificsEdit: TEdit;
       OrlovID_AuctionsLabel: TLabel;
       OrlovDate_ULabel: TLabel;
       OrlovPlaceLabel: TLabel;
       OrlovSpecificsLabel: TLabel;
       procedure InitiButtonClick(Sender: TObject);
       procedure ExitButtonClick(Sender: TObject);
       procedure ModButtonClick(Sender: TObject);
       procedure ClearButtonClick(Sender: TObject);
       procedure OutButtonClick(Sender: TObject);
       procedure InButtonClick(Sender: TObject);
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovRecordForm: TOrlovRecordForm;

     implementation

     {$R *.dfm}
71