TEdit, TSpinEdit

Code:

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;