Проблема с созданием динамических объектов. (Delphi7)

[Dalagardi]

Нужно на панели создать n-количество Timage, картинки для которых будут выбираться из OpenPictureDialog(В прогрессии из DirectoryListBox). На подобие обычных программ для просмотра изображений.
Ниже мой код...Я уверен что в коде накосячил, но жду помощи =)

var
 DinP:array of timage;
  p:^Timage;
  i:integer;

procedure TForm1.FormCreate(Sender: TObject);

getmem(p,sizeof(Timage));
setlength(DinP,timage.InstanceSize);
openpicturedialog1.Execute;

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

[Utkin]

Конечно, накосячил. Раз массив динамический, то перед созданием объекта для него нужно выделить память
SetLength(DinP, длина_массива)
то есть Вам нужна еще переменная count - для хранения числа элементов массива DinP (не забудьте сначала инициализировать ее нулем).

[eoln]

Сообщение от Utkin

перед созданием объекта для него нужно выделить память
SetLength(DinP, длина_массива)

У него это есть

Сообщение от Dalagardi

setlength(DinP,timage.InstanceSize);

Вот только длина_массива не timage.InstanceSize, а 0 и в цикле увеличивать
Помимо этого, нет конструкции if openpicturedialog1.Execute then ..., а файлы брать надо из OpenpictureDialog1.Files.strings[i], а не names ()