[lmikle]

Это простановка флага.

Код:

type
  TBottle = class(...)
  private
    FOpened : Boolean;
  publuc
    procedure Open;
    procedure Close;
  
    property IsOpened : Boolean read FOpened;
  end;

procedure TBottle.Open;
begin
  FOpened := True;
end;

procedure TBottle.Close;
begin
  FOpened := False;
end;

естественно, конструктор, деструктор и др. методы опущены