Timer eigene Prozedur als Event zuweisen

[himitsu]

da könnte man auch gleich

Delphi-Quellcode:

TMyTimer = class(TTimer)
  procedure EndeSender (Sender: TObject); 
end; 

procedure TMyTimer.EndeSender (Sender: TObject); 
begin 
  // hier deine Aktionen 
end; 

var Timer: TMyTimer;

begin 
  Timer := TMyTimer.Create(nil); 
  Timer.OnTimer := Timer.EndeSender; 
end;