FoxPro/Visual FoxPro - Ayuda por favor¡¡¡

buena a todos, tengo una consulta:

tengo un formulario en el esta un text1 un edit1 y un command1

lo que quiero es escribir en el text1 dar clic en el commnad1 y que el texto aparezca en el edit1, bueno esto lo logor con solo un "thisform.edit1.value=thisform.text1.value" en el command1, pero lo qu quiero es lo que vaya escribiendo en el text1 y que aparezca en el edit1 pero sin que limpie el texto que habia escrito antes, como una especie de chat, que va saliendo lo que uno escribe abajo, y el texto anterior queda arriba (me explico)

por favor ayuda¡¡¡

proba con thisform.edit1.value=thisform.edit1.value + thisform.text1.value

escribe esto en el interactivechange del text1
thisform.edit1.Value = this.Value

with thisform
Xtexto=allt(.text1.value)
Xcomen=allt(.edit1.value)
.edit1.value=allt(Xcomen)+iif(len(allt(Xcomen))<>0,chr(13),"")+Xtexto
.text1.value=""
.refresh
endwith

*** lo que estoy asiento es enviar el valor de tu TEXT1 y del EDIT1 a variables.
*** Luego envio estos valores al objeto EDIT1.
*** Esta liene ---- iif(len(allt(Xcomen))<>0,chr(13),"") ----- agrega un enter si la cadena esta llena