Access Violation przy SetLength()

Przygotowuję się właśnie do kolokwium, i mam do napisania dość prosty program.
Wszystko powinno działać, jednak przy dwukrotnym użyciu funkcji SetLength() na tablicy typu record, program wywala następujący błąd:

Exception EAccessViolation in module Kolokwium1.exe at 00008A4F.
Access violation at address 00408A4F in module 'Kolokwium1.exe'.
Read of address 00000000.

Oto kod programu: http://pastebin.com/99yjUQzN

Błędy pojawiają się w liniach 50 oraz 83, ale tylko wtedy, gdy już wcześniej chociaż raz została wykonana procedura DodajObrazPodpunktA() lub DodajObrazPodpunktB().

Bardzo proszę o pomoc.

Dobra. Przyjmijmy, że było 5 elementów w liście i wywołujemy procedurę DodajObrazPodpunktA. Wtedy iloscobrazow := 6, czyli po instrukcji w linii 50 mamy tablicę o indeksach z zakresu [0..5]. A ty w kolejnej linijce próbujesz odwołać się do elementu o indeksie iloscobrazow (czyli 6).

A słyszało się o funkcji

High oraz Low

?

Tak, rzeczywiście, pomieszałem trochę z rozmiarami tablic. Teraz wszystko już śmiga.

Dziękuję bardzo za pomoc!

jakbym to ja mial oceniac ten kolos to nie zdales :]