problems about create form

Hi everyone,

I write a script to create forms as follow:

####################################################

procedure(testCallback(name)
let(()

fieldName=concat(name)
testStringField=hiCreateLabel(
?name fieldName
?labelText strcat("This is test form from " name) )

filedForm = hiCreateAppForm(
?name fieldName
?formTitle "test"
?buttonLayout 'OKCancel
?fields
list(
list(testStringField 0:20 200:40)
)
)

hiDisplayForm(filedForm 650:250)

)
)

procedure(FormTest()
let(()

itemList=nil
hButton=40
yButton=20
for(i 1 10
itemName=concat("test" sprintf(nil "%n" i))
itemText=strcat("test" sprintf(nil "%n" i))
itemCallback=sprintf(nil "testCallback(%L)" itemText)
item=list(
hiCreateFormButton(
?name itemName
?buttonText itemText
?callback itemCallback)
0:yButton+40*(i-1)
410:hButton )
itemList=cons(item itemList)
)

FormTest = hiCreateAppForm(
?name 'FormTest
?formTitle "Form Test"
?buttonLayout 'OKCancel
?fields itemList )

) ;let
) ;

FormTest()
hiDisplayForm(FormTest 350:250)

####################################################

But  it shows two warnings when i run it,

Warning hiDeleteForm: Cannot delete a form that is mapped or form within the form's callback

Warning hiCreateForm: Could not delete already created form.

I can't to solve these warnings, please give me some help.

Thank you very much!