Si lo que quieres es "cortar" parte del texto puedes utilizar la función
Copy de la VCL.
Código Delphi
[-]
Str := Copy(Edit1.Text, 1, 3);
Str := Copy(Edit1.Text, Length(Edit1.Text)-4, 4);
Si lo que quieres es seleccionarlo en el control revisa en la ayuda los métodos del Edit
SelStart y
SelLength.