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);