Komponente (?) an Funktion übergeben

[Sir Rufo]

Wie machst du das denn, wenn du eine Integer Zahl übergeben willst?
procedure TuWas( i : integer ); Und mit einem String?
procedure TuWas( s : string ); Wen wundert es dann, wenn eine Komponente/Objekt so übergeben wird:
procedure TuWas( Ampel : TAmpel );

(Ich gehe jetzt mal davon aus, dass die Ampel-Klasse tatsächlich auch TAmpel heisst - bietet sich ja irgendwie an)

Bei Objekten (dazu zählen auch die Komponenten) werden so nur die Referenzen auf das Objekt übergeben (was zum Arbeiten mit diesem Objekt auch völlig ausreicht).