Works well with flames using a low number of transforms (3 to 4).
Hopefully this will be useful to someone.

Check out http://www.context.cx/download.html
Makes a good script editor for Apophysis.
Tip: try the Object Pascal syntax highlighter.

The dashed line below should not be wrapped to two lines.
If it is, then some of the code may be wrapped incorrectly.
//------------------------------------------------------------------
{
Preview Transform Variations script

Zeros all variation values on selected transform and then
steps through variations entering a random value.
Status bar will show the Variation, value, and Transform number.

Click cancel or hold down the Enter key to exit script.
Using Undo or Ctrl-Z twice will remove update changes.

0anon0 at earthlink.net
}

tform := 1;
if not InputQuery('Start Transform?','Transform #',tform) then exit;
With Flame Do
Begin
SampleDensity := 50;
Oversample := 1;
FilterRadius := 0.1;
End;

SetActiveTransform(tform - 1);
with Transform do
begin
for i := 0 to NVARS - 1 do
Variation[i] := 0;
end;

for k := 0 to NVARS - 1 do
begin
Transform.Variation[k] := random;
v := Transform.Variation[k]
Preview;
ShowStatus('Var' + '=' + IntToStr(k) + ' ' + 'Value' + '='

• FLoatToStr(v) + ' ' + 'Transform' + '=' + IntToStr(tform))
  up := False;
  if not InputQuery('UpdateFlame?',
  '0 = False/No 1 = True/Yes',up) then exit;
  UpdateFlame := up;
  If up = True then Exit ;
  If Stopped then Exit ;

with Transform do
begin
for i := 0 to NVARS - 1 do
Variation[i] := 0;
end;
end;
//------------------------------------------------------------------

{0 Linear
1 Sinusoidal
2 Spherical
3 Swirl
4 Horseshoe
5 Polar
6 Handkerchief
7 Heart
8 Disc
9 Spiral
10 Hyperbolic
11 Diamond
12 Ex
13 Julia
14 Bent
15 Waves
16 Fisheye
17 Popcorn
//18 Exponential
//19 Power
//20 Cosine
//21 Sawtooth}

Ohhh, I like it. Thank you very much!