a := 10;
InputQuery('Rotation angle', 'Rotation angle :', a);
for i := 0 to Transforms - 1 do
begin
  SetActiveTransform(i);
  Rotate(a);
end;