Dejar cursor al final

[jam888]

Que tal amigos del foro, espero que bien tengo el siguiente inconveniente
Estoy ejecutando la siguiente funcion en el evento onchange y me ocurre lo siguiente, cada ves que presiono un numero el cursor se me va al principio y mi palabra pierde el sentido, aca dejo los preocedimientoe que ejecuto.

Ejemplo:Al querer escribir delphi tecleo delp y si de repente presiono la tecla uno(1) el cursor se va al principio (el uno no aparece)y termino escribiendo hidelp(la otra parte de delphi al principio por que esta ahi el cursor) ¿Como hago para que el cursor este siempre al ultimo pòr mas que presione numeros?

procedure TForm1.Edit10Change(Sender: TObject);
begin
Edit10.Text:=SoloPalabra(Edit10.Text);
end;

end.

function SoloPalabra(Texto : String) : String;
var
palabra : String;
i, k : integer;
begin
k := Length(Texto);
for i := 1 to k do
if Texto[i] in ['0','1',....,'9'] {aqui pongo todos los digitos...}
then Break
else palabra := palabra + Texto[i] ;
Result := palabra;
end;