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

     begin
      ID_Auctions := ParamID_Auctions;
      OrlovClassForm.ID_AuctionsEdit.Text := IntToStr(ParamID_Auctions);
     end;

     procedure TIdentAuctionsClass.SetID_Auctions(ParamID_Auctions : Integer);
     begin
      ID_Auctions := ParamID_Auctions;
     end;

     function TIdentAuctionsClass.GetID_Auctions : Integer;
     begin
      Result := ID_Auctions;
     end;

     constructor TAuctionsClass.Create(ParamID_Auctions : Integer;
                          ParamDate_U       : TDateTime;
                          ParamPlace      : String;
                          ParamSpecifics : String
                         );
     begin
      Inherited Create(ParamID_Auctions);
      ID_Auctions := ParamID_Auctions;
      Date_U := ParamDate_U;
      Place     := ParamPlace;
      Specifics := ParamSpecifics;
      with OrlovClassForm do
       begin
        ID_AuctionsEdit.Text := IntToStr(ID_Auctions);
        Date_UEdit.Text       := DateToStr(Date_U);
        PlaceEdit.Text      := Place;
        SpecificsEdit.Text := Specifics;
       end;
     end;

     procedure TAuctionsClass.SetID_Auctions(ParamID_Auctions : Integer);
     begin
      ID_Auctions := ParamID_Auctions;
     end;
     function TAuctionsClass.GetID_Auctions : Integer;
     begin
      Result := ID_Auctions;
     end;

     procedure TAuctionsClass.SetDate_U(ParamDate_U : TDateTime);
     begin
      Date_U := ParamDate_U;
64