Thank Naomi:

I checked previous messages from sergey, he recommend this,

mfilename = GETFILE()
SYS(3050, 1, 512*1024*1024) * Sergey recomendation
SYS(3050, 2, 512*1024*1024) * Sergey recomendation

IF !empty(mfilename)
*this.Parent.Container1.min_detail.objectInsertAsChar(0,mfilename,-1,100,100,0,1)
this.Parent.Container1.min_detail.load(mfilename,0,6,.t.)
ENDIF

SYS(1104) * Sergey recomendation

So far is working perfect no more memory problem.