Klasse funktioniert nicht

[Der_Unwissende]

Ja, hier liegt Dein Fehler.

Dynamische Arrays sind immer 0-indexiert. Das erste Element steht immer am Index 0 (bei Strings sieht das anders aus, da ist es die 1). Entsprechend musst Du hier in einer Schleife von 0 bis Length(array) - 1 laufen.
Bei statischen Arrays (solche wo die Länge feststeht) kannst Du wiederum den Startindex angeben (bei Dir 1..2). Das es hier diese Unterscheidung gibt und insbesondere, das Strings eben immer 1-indexiert, dynamische Arrays hingegen immer 0 indexiert sind ist halt eine (dumme) Delphi-Besonderheit. Musst Du einfach so im Hinterkopf behalten.
Wenn Du also die Schleifen entsprechend anpasst, sollte das Problem gelöst sein.

Gruß Der Unwissende

[edit]
kein roter kasten!
[/edit]