How to fill in unbound fields in a Form

Its easy to fill in a Form with unbound fields (not linked to field names) by using the following technik in the starting of the form. An example follows:

proc Form_Start()

       ....
      {is possible to use not only table selection but also views of the database} 
       start_sql "*" "KOSMOS"
          SELECT * FROM VIEW_NAME WHERE (...)
       end_sql
       q = QueryByName()
       call TExecute(q)
       val1 = TGetFld(q,"FIELD1")  {....get values}
       ........
       edit1 = GetEditBox("EDIT1")  {...get ids of edit boxes}
       .....

       str = strcat("VAL=",val1)       {...construct the setting string}
       .....
       call SetEditBox(edit1,str)       {....update the edit boxes}
      ..... 

end