Sternenhimmel programmieren

[bobo11bobo]

Guten Abend.
Zurzeit arbeite ich an einem Programm zur zufälligen Generierung von Sternen in einem Sternenhimmel. Das Problem, welches ich zurzeit habe besteht darin, dass ich zwar eine Prozedur dafür schreiben kann, jedoch jeweils immer nur ein Stern erzeugt wird (warum verstehe ich). Meine Idee war jetzt, ein paar Prozeduren zu erstellen (zwar viel Code, aber mit copy&paste geht das) und diese daraufhin einfach in einen Thread einzubinden, um dann viele Sterne gleichzeitig erstellen zu lassen. Aber irgendwie schaffe ich das nicht so ganz, da Delphi in dem Thread-Programmteil die Prozeduren nicht mehr anerkennt.

Kann mir jemand sagen, wie ich meinen Thread schreiben muss, um sagen wir mal Procedure1 und Procedure2 gleichzeitig auszuführen ?
(Ich hab mal den Quelltext mithochgeladen)