>>860
いいきっかけだから
練習のつもりで自分でコンポーネントを作ってみるのもいいでしょう
（以下のコード、使ってよし）
　TMyEdit = class(TEdit)
　private
　　FAlignment: TAlignment;
　　procedure SetAlignment(const Value: TAlignment);
　protected
　　procedure CreateParams(var Params: TCreateParams); override;
　public
　　constructor Create(AOwner: TComponent); override;
　published
　　property Alignment: TAlignment read FAlignment write SetAlignment default taRightJustify;
　end;

constructor TMyEdit.Create(AOwner: TComponent);
begin
　inherited;
　FAlignment:=taRightJustify;
end;

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
　inherited CreateParams(Params);
　case FAlignment of
　　taLeftJustify : Params.Style:=Params.Style or ES_LEFT;
　　taCenter　　　: Params.Style:=Params.Style or ES_CENTER;
　　taRightJustify: Params.Style:=Params.Style or ES_RIGHT;
　end;
end;

procedure TMyEdit.SetAlignment(const Value: TAlignment);
begin
　if FAlignment <> Value then
　begin
　　FAlignment := Value;
　　RecreateWnd;
　end;
end;