I've found an answer example source code below arrays: xTABTMP - array to show xTMPCOLORS - array for define colors --->part of code: For XXX:=1 To Len(xTABTMP) // array for cell colors AADD(aTMPCOLORS,{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}) Next oBRWLLPOD := TXBrowse():New( oDLGLLPOD ) ...