Usando tu propio ejemplo me funciono de la siguiente manera:
En el OnClick del Boton puse el siguiente codigo...
Código Delphi
[-]
Edit1.SelStart := POS('b',Edit1.Text)-1;
Edit1.SelLength := 1;
Edit1.SetFocus;
Donde SelStart Es la propiedad que indica de donde quieres comenzar a seleccionar, y SelLength indica cuanto quieres seleccionar a partir de SelStart y SetFocus para pasar el foco a dicho control...
Ahhh, No olvides poner la propiedad AutoSelect de tu Edit en False...
Espero esto te sirva de ayuda o al menos de guia.