TLabeledEdit ableiten

[Nic2012]

Möchte ein TLabeledEdit ableiten, um ähnlich wie z.B. bei einem SpinEdit nur numerische Werte mit Angabe von Min und Max zu verwalten.
Wie bekomme ich es aber hin, wenn in das Text-Property ein Wert eingetragen wird, das neue Value-Prop auch aktualisiert wird.
Gibt es ein SetText im Vorfahr, den ich überschreiben könnte ?
Alternativ könnte man das Text-Property auch ganz ausblenden, wie macht man das in der Ableitung ?

Code:

unit LabeledEditNumeric;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ExtCtrls;

type
  TLabeledEditNumeric = class(TLabeledEdit)
  private
  protected
    FValue: Integer;
    FMin: Integer;
    FMax: Integer;
    FInc: Integer;
    procedure SetValue(value: Integer);
    procedure SetText(value: String);
  public
  published
    property Value: Integer read FValue write SetValue;
    property Min: Integer read FMin write FMin;
    property Max: Integer read FMax write FMax;
    property Increment: Integer read FInc write FInc;
  end;

procedure Register;

implementation

uses dialogs;

procedure Register;
begin
  RegisterComponents('LabeledEditNumeric', [TLabeledEditNumeric]);
end;

procedure TLabeledEditNumeric.SetText(value: String);
begin
  Text := value;
  FValue := StrToInt(value);
end;

procedure TLabeledEditNumeric.SetValue(value: Integer);
begin
  FValue := value;
  Text := IntToStr(FValue);
end;

end.