StringReplace (posicionamiento cursor)

[jymy788]

Buenas a tod@s.

Tengo un problemilla:

En el evento OnChange de un TEdit, estoy haciendo un stringReplace para cambiar las COMAS por PUNTOS de la siguiente forma:

procedure TForm1.eDescuentoChange(Sender: TObject);
var
  valueOrig, valueNew: string;
  tam: integer;
begin
  valueOrig := eDescuento.Text;
  tam := strLen(PChar(valueOrig));
  valueNew := StringReplace(valueOrig, ',', '.', [rfReplaceAll]);
  eDescuento.Text := valueNew;
end;

Funciona bien el replace pero el problema es que me posiciona el cursor al principio del TEdit en cuestión en lugar de al final.

¿Cómo puedo solucionar esto?

Gracias de antemano