Wenn du eine entsprechend neue Delphi-Version hast, kannst du das mit .OnTimer auch mit einer anonymen Funktion versuchen
:
Timer.OnTimer = procedure(Sender: TObject); begin Beep; end;
Bernhard
ADD:
Mir gehts genauso, aber es gibt ja sogar ganze 2 funktionierende Lösungsvorschläge.