1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

type TmyCompo = class(Tcomponent)
 private
 timer1: TTimer;
 procedure timer1timer(sender: TObject);
 procedure xy;
end;

implementation

procedure TmyCompo.xy;
begin
 timer1:=TTImer.create;
 timer1.intervall:=1000;
 timer1.ontimer:=timer1timer;
 timer1.enabled:=true;
end;

procedure TMyCompo.timer1timer;
begin
*********HIER SPRINGT ER NIE REIN!!!!*********** warum??
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TmyCompo.xy; 
begin 
 timer1:=TTImer.create; 
 timer1.intervall:=1000; 
 timer1.ontimer:=timer1timer; 
 timer1.enabled:=true;
 insertConrol(timer1); 
end;					

1:
2:
3:
4:

... z.b. im OnDestroy 

removeControl(timer1);
timer1.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

program TimerTest;
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows, ExtCtrls, Classes;

var
 Timer: TTimer;

procedure TimerTimer(Sender: TObject);
begin
  WriteLn('bla');
end;

begin
  Timer := TTimer.Create(NIL);
  Timer.Interval := 200;
  Timer.OnTimer := TimerTimer; //[Fehler] Project1.dpr(17): Inkompatible Typen: Methodenzeiger und reguläre Prozedur
  Timer.Enabled := true;
  ReadLn;
end.