Ошибка при выборе картинок Delphi7

[Dalagardi]

Создайтся динамический массив с картинками, пользователь выбирает n-количество картинок(OpenPictureDialog), жмёт добавить и после этого программа выдаёт ошибку:

Project Project1.exe raised exception class EStringListError with message 'List index out of bounds (2)'. Process stopped. Use Step or Run to continue.

[eoln]

Код надо показывать. По типу ошибки (выход за пределы) видно, что вызываешь элемент массива которого нет. Скорее всего из-за того, что нумерация в динамическом массиве идёт с нуля, а у тебя с единицы. Или часто конец массива указывают Count, а не Count - 1. Или SetLength'a нет...

[Dalagardi]

Вот код =)

procedure TForm1.N2Click(Sender: TObject);
begin

if form1.OpenpictureDialog1.Execute=true then
begin

getmem(p,sizeof(Timage)*openpicturedialog1.Files.Count);
setlength(DinP,openpicturedialog1.Files.Count);

for i:=0 to openpicturedialog1.Files.Count do
begin
dinp[i]:=Timage.Create(panel1);
dinp[i].Stretch:=true;
dinp[i].Parent:=panel1;
dinp[i].Picture.loadfromfile(form1.OpenpictureDialog1.Files.strings[i]);
dinp[i].Left:=i*100+10;
end;

[Anatole]

for i:=0 to openpicturedialog1.Files.Count-1 do

[Dalagardi]

Anatole спасибо) Всё заработало =)