Ampel komponete

[WM_CLOSE]

Mit einer Enumeration:
Du deklarierst über deiner Klasse den Typ

Delphi-Quellcode:

type
  TAmpelphase=(apErstePhase, apZweitePhase, ..);

dann ein published-property in deiner Klasse:
property Ampelphase: TAmpelphase read FAmpelphase write SetAmpelphase; //die Setter-methode kannst du auch weglassen Natürlich musst du noch FAmpelphase in private deklarieren, sowie die Setter-Methode
Beides sollte auch die Klassenvervollständigung Strg-Shift-C machen.

Die Setter Methode:
procedure SetAmpelphase(const value: TAmpelphase);