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

      CreateAuctionsButton: TButton;
      WriteAuctionsButton: TButton;
      ReadAuctionsButton: TButton;
      CreateExtButton: TButton;
      WriteExtButton: TButton;
      ReadExtButton: TButton;
      LeftPanel: TPanel;
      MidlePanel: TPanel;
      RightPanel: TPanel;
      RightPanel1: TPanel;
      MidlePanel1: TPanel;
      LeftPanel1: TPanel;
      ModifyIdentButton: TButton;
      ModifyAuctionsButton: TButton;
      ModifyExtButton: TButton;
      MenegerEdit: TEdit;
      MenegerLabel: TLabel;
      HorzPanel: TPanel;
      HorzPanel1: TPanel;
      HorzPanel2: TPanel;
      HorzPanel3: TPanel;
      CllearAuctionsButton: TButton;
      ClearIdentButton: TButton;
      ClearExtButton: TButton;
      procedure CreateIdentButtonClick(Sender: TObject);
      procedure CreateAuctionsButtonClick(Sender: TObject);
      procedure CreateExtButtonClick(Sender: TObject);
      procedure ClearIdentButtonClick(Sender: TObject);
      procedure CllearAuctionsButtonClick(Sender: TObject);
      procedure ClearExtButtonClick(Sender: TObject);
      procedure ModifyIdentButtonClick(Sender: TObject);
      procedure ModifyAuctionsButtonClick(Sender: TObject);
      procedure ModifyExtButtonClick(Sender: TObject);
      procedure WriteIdentButtonClick(Sender: TObject);
      procedure WriteAuctionsButtonClick(Sender: TObject);
      procedure WriteExtButtonClick(Sender: TObject);
      procedure ReadIdentButtonClick(Sender: TObject);
      procedure ReadAuctionsButtonClick(Sender: TObject);
      procedure ReadExtButtonClick(Sender: TObject);
     published
     private
      { Private declarations }
     public
      { Public declarations }
     end;

     Var
74