Thanks, so I abandon the other structure until a further version? 
Something (imaginary) like
Something (imaginary) like
nIDGet:= 64
nID Â Â := 108
FOR nIDVar := 23 TO 30
  REDEFINE GET oGet GetSUBSCRIPT nIDGet VAR aPedg VarSUBSCRIPT nIDVar,2 MEMO ID IDSubstript nId OF oFld:aDialogs[4] UPDATE READONLY FONT oFuente[2]
  nID++
  nIDGet++
NEXT