Fórum Formatando CPF e CNPJ em tempo de execução! #196229

Estou formatando o CPF em um edit no momento que o individuo digita,
if length(CGCCPF.Text)=4 then CGCCPF.Text:=LeftStr(CGCCPF.Text, 3)+´.´+RightStr(CGCCPF.Text,length(CGCCPF.Text)-3);
if length(CGCCPF.Text)=8 then CGCCPF.Text:=LeftStr(CGCCPF.Text, 7)+´.´+RightStr(CGCCPF.Text, length(CGCCPF.Text)-7);
CGCCPF.Modified
if length(CGCCPF.Text)=12 then CGCCPF.Text:=LeftStr(CGCCPF.Text, 11)+´-´+MidStr(CGCCPF.Text, 3,length(CGCCPF.Text)-11);

Este codigo de cima é para formatar o CPF, esta no evento ON CHANGE do Edit.Só que qdo passa pelo 1º IF ou seja o length(CGCCPF.Text)=4, ele realmente acrescenta um ponto ao final da string, só que põe o cursor
á esquerda antes do 1º nº digitado, como se faz para deixar o cursor do lado direito para continuar a digitação?