Edit1.SelStart := 你的位置;
Edit1.SelLength := 1