Array of String - Zugriffsverletzung

[Real-TTX]

Hallo Gemeinde

Ich habe ein Problem mit einem Dynamischen Array. Ich denke ich habe irgendwo ein Denkfehler drinne. Ich finde ihn einfach nicht. Ich mach es eigentlich wie immer. Und es geht einfach nicht :/ Ich hoffe jemand findet was:

Delphi-Quellcode:

type
  ArrOfStr = array of string;

....


function ReadComPorts : ArrOfStr;
var
  reg: TRegistry;
  st: Tstrings;
  i: Integer;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware\devicemap\serialcomm', False);
    st := TstringList.Create;
    try
      reg.GetValueNames(st);
      //setlength(result,0);
      for i := 0 to st.Count do // st.Count = 2 Laut Überwachung
      begin
        setlength(result,i);
        result[i] := reg.Readstring(st.strings[i]);

      end;
    finally
      st.Free;
    end;
    reg.CloseKey;
  finally
    reg.Free;
  end;

end;

Gruß, Real-TTX