Der timer bracht ein TNotifyEvent, das muss also von einem Objekt sein. Aber dann kannst du statt TTimer auch einfach TThread nehmen ...
Thread-Beispiel:
Delphi-Quellcode:
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
var
MeinThread: TMyThread;
implementation
procedure TMyThread.Execute;
begin
Beep;
sleep (5000);
beep;
end;
Und dann irgendwo
Delphi-Quellcode:
MeinThread := TMyThread.Create (TRUE);
MeinThread.FreeOnTerminate := TRUE;
MeinThread.Resume;