Prova cosi:

codice:
Text1.SelStart = Len(Text1.Text)