Всем доброго времени суток!
При запуске программы начала выскакивать ошибка:
raised exception class EListError with message 'List index out of bounds(2)'
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' ,
Unit2 in 'Unit2.pas' ,
Unit3 in 'Unit3.pas' ,
Unit4 in 'Unit4.pas' ;
{$R *.res}
begin
Application . Initialize;
Application . CreateForm(TGForm, GForm);
<font color="Red">> Application . CreateForm(TIForm1, IForm1);</font>
Application . CreateForm(TIForm2, IForm2);
Application . CreateForm(TIForm3, IForm3);
Application . Run;
end .
|
Не могу понять в чём может быть проблема. Прошу более опытных пользователей помочь
