Similar technique as @stephen.pearson:
dt = New Table( "Demo", Add Rows( 3 ),
New Column( "data 0", Numeric, Continuous, Format( "Best", 12 ), Set Values( [1, 2, 3] ) ),
New Column( "data 100", Numeric, Continuous, Format( "Best", 12 ), Set Values( [4, 5, 6] ) ),
New Column( "data 200", Numeric, Continuous, Format( "Best", 12 ), Set Values( [7, 8, 9] ) )
);
cols = dt << get column names("String");
for (c = 1, c <= nitems(cols), c++,
if (starts with(uppercase(cols[c]), "DATA"),
new_col_expr = evalinsert("\[dt << new column( cols || " Δ", Numeric, Continuous, Formula(:^cols^ - :data 0))]\");
eval(parse(new_col_expr));
);
);