euroall_0 := Copy(aPage, I+14, J-I-14+2); JS := SuperObject.SO(euroall_0); for I := 0 to JS.AsArray.Length - 1 do begin JSArrayA := JS.AsArray[I]; BefStr := JSArrayA.S['1'] + ';' + JSArrayA.S['19'] + ';' + JSArrayA.S['20'] + ';' + JSArrayA.S['2']