wie code ich am besten ein Stroboskop?

[iaby]

Delphi-Quellcode:

repeat
sleep(trackbar1.position)
if form1.color= clBlack then form1.color:= clWhite
else form1.color:= clBlack;
until false;

nicht getestet, sollte aber gehen!

gruss,
iaby