[spyhak]

Всем доброго времени суток!

При запуске программы начала выскакивать ошибка:
raised exception class EListError with message 'List index out of bounds(2)'

Код:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {GForm},
  Unit2 in 'Unit2.pas' {IForm1},
  Unit3 in 'Unit3.pas' {IForm2},
  Unit4 in 'Unit4.pas' {IForm3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TGForm, GForm);
> Application.CreateForm(TIForm1, IForm1);
  Application.CreateForm(TIForm2, IForm2);
  Application.CreateForm(TIForm3, IForm3);
  Application.Run;
end.

Не могу понять в чём может быть проблема. Прошу более опытных пользователей помочь