Zitat:
versuche ein Sleep(20); in deine repeat schleife zu setzten damit die cpu nicht auf 100% läuft.
Delay 
http://www.delphipraxis.net/6620-delay.html 
Aber es macht auch keinen Sinn, den einmaligen Durchlauf noch künstlich mit einem Sleep/Delay zu verlängern.
Wenn wirklich viel zu tun ist, dann darf das Programm gern mal mit 100% laufen.
Aber wie die Messages behandelt werden ist letztendlich egal, wenn die Position wohl eher das Problem ist.
Zitat:
Im OnShow ist das ungünstig plaziert.