Default property überladen

[iphi]

Hallo,

ich möchte mir von TListBox eine Variante ableiten, bei der ein Property z.B. Color defaultmäßig anders ist als bei TListBox. Habs so versucht, geht aber nicht:

Delphi-Quellcode:

unit MyListBox;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Dialogs, Graphics;

type
  TMyListBox = class(TListBox)
  public
    constructor Create(AOwner: TComponent); overload;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyListBox]);
end;

constructor TMyListBox.Create(AOwner: TComponent);
begin
  inherited create(AOwner);
  Color:=clLime;
end;

end.

Ich möchte das Property zur Design-Time aber trotzdem ändern können.
Wie mache ich das? Danke!