AULA 01 - POSSAMAI

  TBicicleta = class(TForm)
  strict private
    FMarca : string;
    FModelo: string;
    FPreco : Double;
    procedure SetPreco(const Value: Double);
  public
    property Marca : string read FMarca  write FMarca;
    property Modelo: string read FModelo write FModelo;
    property Preco : Double read FPreco  write SetPreco;
    procedure Pedalar(dQuilometragem: Double);
  end;

  TMountainBike = class(TBicicleta)
  strict private
    FAmortecedor    : Boolean;
    FFreioHidraulico: Boolean;
  public
    property Amortecedor     : Boolean read FAmortecedor     write FAmortecedor;
    property FreioHidraulico : Boolean read FFreioHidraulico write FFreioHidraulico;
    procedure DescerTrilha(dQuilometragem: Double; bChovendo: Boolean);
  end;

  TSpeed = class(TBicicleta)
  strict private
    FPSIPneu: Integer;
    FCambio : String;
    FGuidao : String;
    procedure SetPSIPneu(const Value: Integer);
  public
    property PSIPneu : Integer read FPSIPneu write SetPSIPneu;
    property Cambio  : String  read FCambio  write FCambio;
    property Guidao  : String  read FGuidao  write FGuidao;
    procedure TopSpeed(dGrauInclinacao: Integer; dMinutos: Double);
  end;