Mep Sites: Dicas de Delphi - Alinhar a direita num campo Edit

Coloque o código seguinte no evento onKeyUp do Edit:

var
TW : integer;
begin
TW := Form1.Canvas.TextWidth(Edit1.Text);
Edit1.Perform(EM_SETMARGINS, EC_LEFTMARGIN, (Edit1.Width - TW-15));