Renderer.Width := Flame.Width;
Renderer.Height := Flame.Height;
Flame.SampleDensity := 2000;
Flame.Oversample := 2;
Flame.FilterRadius := 0.4;
SetRenderBounds;

for i := 0 to 9 do
begin
    SetActiveTransform(1);
    Rotate(1);
    SetActiveTransform(2);
    Rotate(-1)
    Renderer.Filename := 'C:\Documents and Settings\A\My Documents\Fractals\Renders9-2010\Mr Moody\' + Flame.Name + '-' + i + '.png';
    Render;
end

for i := 10 to 29 do
begin
    SetActiveTransform(1);
    Rotate(-1);
    SetActiveTransform(2);
    Rotate(1)
    Renderer.Filename := 'C:\Documents and Settings\A\My Documents\Fractals\Renders9-2010\Mr Moody\' + Flame.Name + '-' + i + '.png';
    Render;
end

for i := 30 to 39 do
begin
    SetActiveTransform(1);
    Rotate(1);
    SetActiveTransform(2);
    Rotate(-1)
    Renderer.Filename := 'C:\Documents and Settings\A\My Documents\Fractals\Renders9-2010\Mr Moody\' + Flame.Name + '-' + i + '.png';
    Render;
end