[elguille]

PORQUE EL SIGUIENTE CODIGO NO DA ERROR

Código Delphi [-]
  PROCEDURE impform;
  var I:INTEGER;
      miform:tform;
  BEGIN
  I:=0;
  WHILE i <= Screen.FormCount - 1 do BEGIN
    MIFORM:=TFORM(Screen.Forms[i]);
      if MIFORM.Active then begin
          MIFORM.PrintScale:=poprinttofit;
          MIFORM.Print;
          I:=Screen.FormCount;
      end else
        i:=i+1;
  end;
  END;

Y ESTE DA ERROR VIOLACION DE ACCESO ¿¿¿ ???

Código Delphi [-]
  PROCEDURE impform;
  var I:INTEGER;
  BEGIN
  I:=0;
  WHILE i <= Screen.FormCount - 1 do BEGIN
      if TFORM(Screen.Forms[i]).Active then begin
          TFORM(Screen.Forms[i]).PrintScale:=poprinttofit;
          TFORM(Screen.Forms[i]).Print;
          I:=Screen.FormCount;
      end else
        i:=i+1;
  end;
  END;