procedure TWinControl.CMEnabledChanged(var Message: TMessage);
begin
 if not Enabled and (Parent <> nil) then RemoveFocus(False);
&#133

 TForm1 = class(TForm)
...............
 private
   ListEvent: TStringList;
   procedure Clk(Sender: TObject);
.........
 end;
........
implementation
....
procedure TForm1.Clk(Sender: TObject);
var N: Integer; P: TNotifyEvent;
begin
 N:=ListEvent.IndexOf((Sender as TControl).Name);
 Beep;
 if N>=0 then begin
  P:=nil;
  @P:=ListEvent.Objects[N];
  if Assigned(P) then P(Sender);
  ShowMessage((Sender as TControl).Name);
 end;
end;

type THControl = class(TControl);
procedure TForm1.FormCreate(Sender: TObject);
var N: Integer;
begin
 ListEvent:=TStringList.Create;
 for N:=0 to ComponentCount-1 do
  if Components[N] is TControl then begin
   if Assigned(THControl(Components[N]).OnClick) then
     ListEvent.AddObject(THControl(Components[N]).Name, @THControl(Components[N]).OnClick);
   THControl(Components[N]).OnClick:=Clk;
  end;
end;

Windows.Beep(1000, 100)

PlaySound

procedure TAlarmDispatcherModule.PlaySound(const Action: Boolean);
var
fn : string;
begin
 if Action then
  begin
   if FAlarmList.Count =0 then Exit;
   if FSoundPlaying then Exit;
   fn := configurator.KdrParams.ParamValueByNameDef('ExeFileDir', '') + 'Res\Alarm.wav';
   if not FileExists(fn) then Exit;
   sndPlaySound(PChar(fn), SND_ASYNC or SND_LOOP);
   FSoundPlaying := True;
  end
 else
  begin
   if FSoundPlaying then
    begin
     sndPlaySound(nil, 0);
     FSoundPlaying := False;
    end;
  end;
end;