Code immer wieder ausführen

[neolithos]

Delphi-Quellcode:

TMyCompo = class (TComponent)
private
  fTimer : TTimer;
  procedure TimerTimer(Sender : TObject);

constructor TMyCombo.Create(???);
begin
  inherited ???
  ....
  fTimer := TTimer.Create(Self);
  fTimer.Interval := 1000;
  fTimer.OnTimer = TimerTimer;
end;

procedure TMyCombo.TimerTimer(Sender : TObject);
begin
  ...
end;

So einfach kann es sein