Integer bei Kompo nur 0-100 und Wert ändern mit Button futzt

[Poseidon]

Hallo Delphianer,

ich progge grade an einer neuen Kompo und habe bei

Code:

private FVolume : Integer

und im Publish-Block

Code:

Volume : Integer read FVolume write FVolume;

Stehlt man bei der installierte Kompo im OI Volume ein kann man fast jede zahl schreiben. Wie schaffe ich das man nur Zahlen von 0-100 schreiben kann. Und Mit dem code

Code:

MeineKompo1.Volume:= 50;

erzielt man auch keie Wirkung
Vielleicht könnt ihr mir ja helfen. Danke im voraus

mfg Poseidon

[dominikkv]

Delphi-Quellcode:

type
  TMyCompo = Class
  private
    fVolume: Integer;
    procedure SetVolume(const Value: Integer);
  public // bzw published
    property Volume: Integer read fVolume write SetVolume;
  end;

implementation

procedure TMyCompo.SetVolume(const Value: Integer);
begin
  if Value in [0..100] then
    fVolume := Value;
end;