Eigene Komponente......

[scp]

Also am einfachsten kann man einen Enumtyp für den OI verwenden:

Delphi-Quellcode:

type
  TFarbe = (fbRot, fbGruen, fbBlau, fbGelb, fbRosa, fbTuerkis); 
const
  Farben : array[TFarbe] Of TColor = (clRed, clLime, clBlue, clYellow, clFuchsia, clTeal);

TZeichnePanel = class(TPanel) 
              protected 
               Licht: TShape; 
               fFarbe: TFarbe; 
               fColor: TColor; 
               procedure setColor(c: TFarbe); 
               procedure myOnResize(Sender: TObject); 
              public 
               constructor Create(AOwner: TComponent); override; 
               procedure Paint; override; 
              published 
               property Farbe: TFarbe read fFarbe write setcolor; 
end; // of TZeichnePanel 

//...

procedure TZeichnePanel.setColor(c: TFarbe); 
begin
  fFarbe := c;
  fcolor := Farben[c];
end;