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

     procedure TOrlovRecordForm.InitiButtonClick(Sender: TObject);
     begin
      with ConstOrlovAuctionsRecord do
       begin
        ID_AuctionsEdit.Text := IntToStr(ID_Auctions);
        Date_UEdit.Text     := DateToStr(Date_U);
        PlaceEdit.Text    := Place;
        SpecificsEdit.Text := Specifics;
       end;
     end;

     procedure TOrlovRecordForm.ExitButtonClick(Sender: TObject);
     begin
     OrlovRecordForm.Close;
     end;

     procedure TOrlovRecordForm.ModButtonClick(Sender: TObject);
     begin
      with ModOrlovAuctionsRecord do
       begin
        ID_AuctionsEdit.Text := IntToStr(ID_Auctions);
        Date_UEdit.Text     := DateToStr(Date_U);
        PlaceEdit.Text    := Place;
        SpecificsEdit.Text := Specifics;
       end;
     end;

     procedure TOrlovRecordForm.ClearButtonClick(Sender: TObject);
     begin
      begin
        ID_AuctionsEdit.Text := IntToStr(0);
        Date_UEdit.Text     := DateToStr(25/03/2000);
        PlaceEdit.Text    := '';
        SpecificsEdit.Text := '';
      end;
     end;

     procedure TOrlovRecordForm.OutButtonClick(Sender: TObject);
     begin
      with VarOrlovAuctionsRecord do
       begin
        ID_AuctionsEdit.Text := IntToStr(ID_Auctions);
        Date_UEdit.Text     := DateToStr(Date_U);
        PlaceEdit.Text    := Place;
        SpecificsEdit.Text := Specifics;
       end;
72