Правое выравнивание текста в компоненте Edit

TEdit1  = class(TEdit)
  public
    procedure CreateParams(var Params: TCreateParams); Override;
end;
 
procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;

procedure RJustifyEdit(var ThisEdit : TEdit); 
var 
 Left, Width : Integer; 
 GString : String; 
 Rgn : TRect; 
 TheCanvas : TControlCanvas; 
begin 
  TheCanvas := TControlCanvas.Create; 
  try 
    TheCanvas.Control := ThisEdit; 
    GString := ThisEdit.Text; 
    Rgn     := ThisEdit.ClientRect; 
    TheCanvas.FillRect(Rgn); 
    Width   := TheCanvas.TextWidth(GString); 
    Left := Rgn.Right - Width - 1; 
    TheCanvas.TextRect(Rgn, Left, 0, GString); 
  finally 
    TheCanvas.Free; 
  end ; 
end;

{   
  All you have to do is to verride the CreateParams of the class TEdit.   
  Install the following unit as a component.   
}  
    
 unit AlignEdit;   
    
 interface  
    
 uses  
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   
   StdCtrls;   
    
 type  
    
   TAlign = (eaLeft, eaCenter, eaRight);   
    
   TAlignEdit = class(TEdit)   
   private  
     { Private-Deklarationen }  
     FAlign: TAlign;   
     procedure SetAlign(const Value: TAlign);   
   protected  
     { Protected-Deklarationen }  
     procedure CreateParams(var Params: TCreateParams); override;   
   public  
     { Public-Deklarationen }  
     constructor Create(AOwner: TComponent); override;   
   published  
     { Published-Deklarationen }  
     property Alignment: TAlign read FAlign write SetAlign default eaLeft;   
   end;   
    
 procedure Register;   
    
 implementation  
    
 constructor TAlignEdit.Create(Aowner: TComponent);   
 begin  
   inherited Create(AOwner);   
   FAlign := eaLeft;   
 end;   
    
 procedure TAlignEdit.SetAlign(const Value: TAlign);   
 begin  
   if FAlign <> Value then  
   begin  
     FAlign := Value;   
     RecreateWnd;   
   end;   
 end;   
    
 procedure TAlignEdit.CreateParams(var Params: TCreateParams);   
 begin  
   inherited;   
   case FAlign of  
     eaLeft: Params.Style   := Params.Style or ES_LEFT;   
     eaCenter: Params.Style := Params.Style or ES_CENTER;   
     eaRight: Params.Style  := Params.Style or ES_RIGHT;   
   end;   
 end;   
    
 procedure Register;   
 begin  
   RegisterComponents('SwissDelphiCenter', [TAlignEdit]);   
 end;   
    
 end.