New error discoverd? table

//deletes al  . //
Mycontext=Replace(Mycontext,".","")
Mycontext..Cursor = 1

//Rips the code from input field + transforms it into a numeric string//
istartposEXPRESS is int
iEndposEXPRESS is int
istartposEXPRESS=Position(Mycontext,"Metaal")+2
iEndposEXPRESS=Position(Mycontext,"Kri",istartposEXPRESS)
Metaal is string=Mycontext[[istartposEXPRESS+Length("Metaal") TO iEndposEXPRESS-2]]
Metaal2 is string = Metaal
metaal3 is string = Val(Metaal2)

//adds the numeric dato to the table
TableAddLine(Table1,Cordinaten,Speler,Metaal3,Kristal,Deuterium)
 
configuration of table see image:

when click button read:

(Trace shows info before adding in tabel)
as you can see until now evrything is working

Next part of code
//buton2 (code ripped from exampel)//
// it use to get the max value of a colom //
// create the matrix
// "MATSTAT" is the logical name used to handle the matrix
MatCreate("MATSTAT")

// write the data
i is int
FOR i=1 TO TableCount(Table1)  // table number of lines
	MatWrite("MATSTAT", Table1, i, 1)
END

// search for the maximum
iResult is real
iResult = StatMax("MATSTAT")

// Display the result
Info("Result=" + iResult)

// Delete the matrix
MatDelete("MATSTAT")