Usar FOR EACH para tratar una cadena de datos separadas por un carácter

sCadena is string = "uno; dos; tres; cuatro; cinco"
FOR EACH STRING sPalabra OF sCadena SEPARATED BY ";"
 Info(sPalabra) 
END