.Versión 2
.Subroutine_Button1_Clicked
Diálogo común 1. Tipo = 1
Si es verdadero(Diálogo común 1.Abrir(. ))
Escribir en el archivo (Diálogo común 1. Nombre del archivo, en el conjunto de bytes (Cuadro de edición 1. Contenido))
. Si realmente terminó
.Versión 2
.Subroutine_Button1_Clicked
Diálogo común 1. Tipo = 1
Si es verdadero(Diálogo común 1.Abrir(. ))
Escribir en el archivo (Diálogo común 1. Nombre del archivo, en el conjunto de bytes (Cuadro de edición 1. Contenido))
. Si realmente terminó