[eigene Komponente] TRunLabel Problem

[mOzZzI]

Zitat von Luckie:

Es wäre wesentlich einfacher, wenn du uns die Fehlermeldung nennen würdest und dazu die relevate Codestelle.

Ok, hier:

erste Fehlermeldung:
"Bezeichner redefiniert"

Delphi-Quellcode:

...
uses
  SysUtils, Classes, Controls, StdCtrls, ExtCtrls;

type
  TOption = set of (Aktiv, Intervall);
  TRunLabel = class(TLabel) //<--- hier die Fehlermeldung
  private
    { Private-Deklarationen }
    fTimer: TTimer;
    fIntervall: Integer;
    fAktiv: Boolean;

    FOption: TOption;
...

zweite Fehlermeldung:
"'.' erwartet ']' gefunden"

Delphi-Quellcode:

...
procedure Register;
begin
  RegisterComponents('Standard', [TRunLabel]); //<--- hier die fehlermeldung
end;
...

dritte fehlermeldung:
"'TRunLabel' untescheidet sich von der von vorheriger Deklaration"

Delphi-Quellcode:

...
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Intervall: Integer Read fIntervall Write SetIntervall;
    property Aktiv: Boolean Read fAktiv Write SetAktiv;
...

...
constructor TRunLabel.Create(AOwner: TComponent); //<--- hier die fehlermeldung
begin
  inherited; //<--- fehler (diese form des methodenaufrufs ist nur auf abgeleiteten typen erlaubt)
  fAktiv := False; //undefinierter bezeichner
  fIntervall := 500;//undefinierter bezeichner
  fTimer := TTimer.Create(self);//undefinierter bezeichner
  fTimer.OnTimer := OnTimer;//undefinierter bezeichner
  fTimer.Interval := 500;//undefinierter bezeichner
  fTimer.Enabled := fAktiv;//undefinierter bezeichner
end;
...

Und ich kann immer genauso weitermachen bei jeder procedure...

Ich hoffe ihr könnt mir helfen
...