buchstaben in dynamischen array speichern

[furby]

hiHo
Also ich will einen string mit einer schleife durchlaufen und die vorgekommenen buchstaben in einer listbox speichern (Auch mit anzahl)... Dies stellt auch kein problem dar, da ich erst einfach ein array mit der größe 255 verwendet habe( 255 zeichen wegen der 255 ASCII zeichen). Nunja nun ist mir aber aufgefallen, dass es ja mehr als 255 zeichen gibt. Also hab ich es mal mit einem dynamischen array versucht. Das Problem ist nun, dass wenn ich die Größe des arrays in einer schleife ändere, mir irgendwie die daten verloren gehen. Es werden nämlich immer Nur die Zeichen angezeitg wenn ihr dezimalnummer in der ASCII Tabelle kleiner wird.
D.h. konkret er zeit 'cba' an und zählt alles korrekt. bei 'abc' jedoch bleibt meine listbox leer. Dies ist ja auch logisch, wenn meine erkenntnis wahr ist, dass das array gelöscht wird sobald ich die größe ändere?

So nun meine Frage: Kann man das umgehen? oder liegt mein fehler ganz woanders?
P.S. ich will kein aushilfsarray nehmen. Den Umstand ist es mir nicht Wert!

Delphi-Quellcode:

var i: integer;
    s1: string;
    myASCIIarray: array of integer;
    last:integer;
begin
  listbox1.clear;
  s1 := editEingabe.text;
  last := ord(s1[1]);
  setlength(myASCIIarray,ord(s1[1])+1);
  for i := 1 to length(s1) do
  begin
    if last < ord(s1[i]) then
      setlength(myASCIIarray,i+1);
    inc(myASCIIarray[ord(s1[i])]);
    last := ord(s1[i]);
  end;
  for i := 0 to high(myASCIIarray) do
    if myASCIIarray[i] > 0 then
      listbox1.Items.add(chr(i)+': '+ IntToStr(myASCIIarray[i]));
end;