Komponente (?) an Funktion übergeben

[Eknoes]

Hallo,
Ich habe, wie schon zu erwarten, eine Frage zu Delphi. In Delphi bin ich zwar ein Neuling, habe allerdigns schon einiges an Erfahrung in anderen Programmiersprachen gesammelt.

Ich habe ein Projekt, dass dass aus einer Kreuzung mit 4 Ampeln besteht, die aufeinander abgestimmt sind. Die Ampeln bestehen aus jeweils 3 TShapes, die unterschiedlich gefärbt werden.

Jetzt will ich eine Funktion basteln, die eine Ampel in die nächste Phase bringt. Das ist auch kein problem, allerdings möchte ich der Funktion übergeben, wie die Ampel "heisst". ich versuche das mal in Code zu fassen, dass es leichter verständlich ist:

Code:

function naechstePhase(Ampel)
     Ampel.brush.color := red;

Ampel kann eben Ampel1, Ampel2, usw. sein, also dass ich mit einer Funktion unterschiedliche Ampeln ansprechen kann.

Ich hoffe ihr wisst was ich meine !?

Viele Grüße & schoneinmal Danke!
Jan