En torry.net tenés componentes con código que hacen lo que decís.
De todas formas en algún momento me habia hecho un componente haciendo algo como:
Código:
type TComponente :class(TEdit)
protected
procedure CreateParams(var Params :TCreateParams); override;
...
end;
procedure TComponente.CreateParams(var Params :TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_RIGHT;
...
end;
...
Alguna idea te va a dar...