Ampel komponete

[fox67]

Hallo ich würde gerne eine ampel komponete erstellen. bis jetzt habe ich noch nie eigene komponenten erstellt, deshalb habe ich mir von allenmöglichen seiten tutorials angeschaut doch keins hatt mir so wirklich geholfen.

Delphi-Quellcode:

unit GraphicControl1;

interface

uses
  SysUtils, Classes, Controls;

type
  TAmpel = class(TGraphicControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

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

end.

Wo muß hier die paint routine rein
Kann ich in die paint routine diesen quelltext eingeben?

Delphi-Quellcode:

canvas.pen.color := clwindowframe;
canvas.brush.color := clwindowframe;
canvas.rectangle(0,0,TAmbel.hight,TAmpel.width);//Ampelkasten
canvas.pen.color := clblack;
canvas.brush.color := clblack;
canvas.circle(5,40,35,35); //Ampelleuchten im auszustand
canvas.circle(5,80,35,35);
canvas.circle(5,120,35,35);

Die ampel sollte im objekinspektor 2 eigenschaften haben
einmal wo man die ampelphasen auswählen kann und einmal bei dem man die ausschält und sie dann gelb blinkt. wie kann ich dass alles verwirklichen?