uses Messages


  PostMessage(ProgressBar2.Handle,$0409,0,clBalck);