1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TFormMain.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
  i: integer;
begin
  GetCursorPos(ptWork);
  for i := 1 to 9 do
    if WindowFromPoint(ptWork) = (FindComponent('b'+inttostr(i)) as TSpeedButton).Handle then begin
      if SoundOn then
        PlaySound(PChar(6),HInstance, snd_ASync or snd_Memory or snd_Resource);
      break;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

.
.
procedure WndProc(var Message : TMessage); override;
.
.
procedure TFormMain.WndProc(var Message : TMessage);
var
  i: integer;
begin
  if (Message.Msg = CM_MOUSEENTER) and SoundOn then
    for i := 1 to 9 do
      if Message.LParam = Longint(FindComponent('b'+inttostr(i)) as TSpeedButton) then
        PlaySound(PChar(6),HInstance, snd_ASync or snd_Memory or snd_Resource);
 inherited WndProc(Message);
end;