wo legst du die länge des array fest (SetLength)?
edit:
oh, sehe gerade du verwendest ja einen statischen array.
außerdem würde ich statt "I := 1 to 25" lieber "I := Low(Punkt) to High(Punkt" verwenden. so musst du später falls sich der array vergrößert/verkleinert nicht immer im code nach den werten suchen.
edit2: bei mir funktioniert dein code. habe noch ein AutoSize := True eingefügt.