codice:
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
così selezioni tutto il testo nel text1

ciauz