Ich würde eher ein Kleines Sleep in den Thread einbauen.
Dein Programm hängt wahrscheinlich in dem Classes.Checksynchronize fest, da die Threads schneller sind, als das Zeichnen.
Da ist eine Schleife die solange arbeitet bis kein Synchronize mehr "anliegt" Das passiert aber nicht.
Probier es so:
Delphi-Quellcode:
while true do //besser: while not terminated
begin
sleep(10); //oder kleiner
Paint(Random(200), Random(200), Random(200), Random(200), Random($FFFF));
end;