>>350
それから、あまり深いインデントをするとみにくくなるよ。
工夫すれば、↓のようにも書ける事を覚えると吉。やってる事は >>350 と全く同じ。

begin
　FirstMove:=0;
　GetLocalTime(SystemTime);
　if SystemTime.wHour>=15 then Exit;
　GetcursorPos(Pointcursor);
　if Pointcursor.X<=500 then Exit;
　if Pointcursor.Y<=500 then Exit;
　if not SetVolume(0, 0, 0) then
　　ShowMessage('ボリューム設定に失敗しました');

　with Mediaplayer1 do
　begin
　　Filename:='C:\Windows\bell.wav';
　　Open;
　　Notify:=true;
　　Play;
　end;

　j:=500;

　while j<64000 do
　begin
　　if not SetVolume(0, 0, j) then
　　　ShowMessage('ボリューム設定に失敗しました');
　　if Mediaplayer1.NotifyValue=nvSuccessFul then
　　begin
　　　Mediaplayer1.Notify:=True;
　　　Mediaplayer1.play;
　　　Application.ProcessMessages;
　　　end;
　　Inc( J, 1000 );
　end;
end;