unit Ampel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,graphics;

type
  TZustand = (aus,rot,gelb,grun,rotgelb);

  TAmpel = class(TCustomPanel)
  private
  FZustand:TZustand;
  kreis1:tshape;
  kreis2:tshape;
  kreis3:tshape;
  procedure setZustand (value:TZustand); //wenn bei TZustand umgeschaltet wird dann wird der Parameter hier gespeichert
  protected
    { Protected-Deklarationen }
  public
   constructor create(AOwner:TComponent); override;

  published
  property Zustand:TZustand read FZustand write setZustand;
  end;

procedure Register;

implementation

procedure setZustand(value:TZustand);
begin
FZustand:=value; // FZustand rot unterstrichen
end;

procedure Register;
begin
  RegisterComponents('Eigene', [TAmpel]);
end;

constructor Tampel.create(AOwner:TComponent);
begin