компонент...

Искам да си направя компонент от тип TEdit, с единствената разлика, че искам да е с width=200. Това което съм написал явно не е достатъчно, ефектът е нулев. Знае ли някой какво да направя? Искам още като си избера компонента от палета и го сложа на формата, вече да е дълъг 200 пиксела.

type
TCEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
property width default 200;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Containers', [TCEdit]);
end;

constructor TCEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Width:=200;
end;

При мен със същия код си работи нормално с Width 200