Если же нужно именно в конструкторе и при заброске на форму, то естественно по другому, например так

Всем огромное спасибо за помощь...
Особенно DimaBr...
Даже перекрывать ничего не пришлось...
Последний пример очень помог, только вместо self - GetParentForm(Aowner as TControl)
Вот что в итоге получилось, :
...
constructor TColorBtn.Create(AOwner: TComponent);
var f: TCustomForm;
begin
 inherited Create(AOwner);
 ...
 f := GetParentForm(GetParentForm(Aowner as TControl));
 if F is TCustomForm then begin
   Left := (TCustomForm(F).width - Width) div 2;
 end;
 ...
end;

> procedure TMyButton.SetParent(AParent: TWinControl);
> begin
>  inherited;
>  Left := Left;
> end;


Left:=Left не нравится.

Может AdjustSize ?