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).
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)