Verwendung der System Komponente "Timer" ohne grafische Komponente in eigener Klasse

[FriendOfDelphi]

Hallo Allerseits,

ich habe eine Frage zu der Timer-Komponente.

Mein Ziel ist es ohne grafische Programmierung, einen Timer vom Typ TTimer in einer eigenen Klasse zu verwenden.
Grundsätzlich geschafft habe ich dies schon in einem "normalen" Programm (siehe Beispielquellcode):

Delphi-Quellcode:

unit Timer_ohne_Grafik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Abgelaufen(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Abgelaufen(Sender: TObject);
begin
  ShowMessage('Test');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
    Timer1:=TTimer.Create(self);
    Timer1.Enabled:=true;
    Timer1.name:='Timer';
    Timer1.Interval:=5000;
    Timer1.OnTimer:=Abgelaufen;
end;

end.

Ich möchte den Timer aber in einer eignen Klasse verwenden.
Wenn also eine Instanz der eigenen Klasse erzeugt wird, soll automatisch ein Timer mit erzeugt werden, der dann in dieser Instanz läuft.

Quelltext des Konstruktors:

Delphi-Quellcode:

constructor TEigeneKlasse.Create(iModus: integer);
var
  i, j: integer;
begin
  inherited Create; //hierdurch wird der ursprüngliche Konstruktor aufgerufen
    FiModus := iModus;
  Timer1:=TTimer.Create(self);
  Timer1.Enabled:=true;
  Timer1.name:='Timer';
  Timer1.Interval:=5000;
  Timer1.OnTimer:=Abgelaufen;
end;

Der Compiler meldet hier den Fehler: UProgramm.pas(51): Inkompatible Typen: 'TComponent' und 'TEigeneKlasse' in der Zeile Timer1:=TTimer.Create(self); .
Was mache ich falsch? Was muss ich anstatt "self" in die Klammer schreiben?