Neue Komponente von bestehender ableiten

[Luckie]

Wir hatten ja gerade das problem, dass da jemand ein IntegerEdit haben wollte. Nun wollte ich das mal probieren und ein TIntEdit von TEdit ableiten.

Mein Ansatz:

Delphi-Quellcode:

type
  TIntEdit = class(TCustomEdit)
    private
      FValue: Integer;
      procedure SetText(Value: Integer); override;
      function GetText: Integer;
    property
      Text: Integer read GetText write SetText;
  end;

procedure TIntEdit.SetText(Text: Integer);
begin
  FText := Value;
end;

function TIntEdit.GetText: Integer;
begin
  Result := Value;
end;

Nur sagt er mir da:

Zitat:

[Error] Unit1.pas(13): Method 'SetText' not found in base class

Woher weiß ich nun wie die Methoden in der basisklasse heißen, wenn ich die Sourcen nicht habe?

Und zweitens: kann mein Ansatz zum Erfolg führen?