Hmm, abschmieren tut es bei mir nicht, aber es verzögert ein wenig. Versuch mal im Timer Folgendes zumachen
Delphi-Quellcode:
timer1.Enabled := false;
windows.beep;
inc(counter);
if counter = 5 then
begin
Application.PocessMessages;
counter := 0;
end;
timer1.Enabled := true;
Den counter müsstest du noch als globale Integer deklarieren. Das Ganze sorgt dafür, dass der Timer sich nicht überschlägt und alle fünf Durchläufe die Windows-Meldungen verarbeitet werden.