Hab keine Ahnung, aber mit Spleep(30) und i=1 to 255 friert Dein Programm möglicherweise ein.
Von Threads habe ich auch keine Ahnung, aber erstellst Du nicht 255 Threads und machst ein Sleep?
Ich glaube, Du brauchst ein Delay?!
Zum besseren Verständnis: Ich beziehe mich auf procedure TForm1.ButtonClick(Sender: TObject);