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

      OrlovClassForm: TOrlovClassForm;

     Implementation

     uses OrlovAlltypeUnit;

     {$R *.dfm}

     procedure TOrlovClassForm.CreateIdentButtonClick(Sender: TObject);
     begin
      VarIdentAuctionsClass := TIdentAuctionsClass.Create(978356);
     end;

     procedure TOrlovClassForm.CreateAuctionsButtonClick(Sender: TObject);
     begin
      VarAuctionsClass := TAuctionsClass.Create(789564,
                             25/03/2006,
                             'Пенза, ул.Мира',
                             'Антиквар',
                             );
     end;

     procedure TOrlovClassForm.CreateExtButtonClick(Sender: TObject);
     begin
      VarExtAuctionsClass := TExtAuctionsClass.Create
                     (235,
                      26/03/2005,
                      'Саратов',
                      'Картины',
                      'Орлов Кирилл Сергеевич'
                      );
     end;

     procedure TOrlovClassForm.ClearIdentButtonClick(Sender: TObject);
     begin
      Begin
        ID_AuctionsEdit.Text := IntToStr(0); {Ид.номер изделия}
      End;
     end;

     procedure TOrlovClassForm.CllearAuctionsButtonClick(Sender: TObject);
     begin
      Begin
        ID_AuctionsEdit.Text := IntToStr(0);{Индивидуальный номер аукциона}
        Date_UEdit.Text    := DateToStr(25/04/2006);
                             {Дата проведения}
75