Label1.Caption =Label1.Caption & " " & (Text2.Text)