procedure TForm1.Button1Click(Sender: TObject); begin TMyThread.Create(false); end; procedure TMyThread.Execute; begin WaitForSingleObject(Form1.dOPCServer1.OPCGroups[0].SignalEvent,6000); //wait for datachange or time out beep; end;