Höchster Wert aus Registry

[kaschte]

Delphi-Quellcode:

procedure TForm1.Deaktivieren1Click(Sender: TObject);
var regist: TRegistry;
reglist : Tstringlist;
status, i : integer;
  MyIntArray: array of Integer;
   arr: array[0..100] of integer;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\***\*\*', true);
  reglist := TStringList.Create;
  status := 1;
  regist.GetKeyNames(reglist);
    SetLength(MyIntArray, reglist.Count);
  for i := 0 to reglist.Count - 1 do
  begin
    MyIntArray[i] := StrToInt(reglist.Strings[i]);
  end;
   for I:=Low(MyIntArray) to High(MyIntArray) do
   MyIntArray[I]:=Random(High(Integer));

 Quick_Sort(MyIntArray);

regist.free;
label3.caption := IntToStr(MyIntArray[0]);

Bei diesem Code kommt die Fehlermeldung:
Project *.exe raised exception class EConvertError with message "4226805319' is not a valid integer value'. Process stopped.

4226805319 ist übrigens der höchste Wert neben ihm gibt es allerdings nur noch 0 werds aber noch auf nem anderen PC probieren dort hat es mehrere.

EDIT2: Die Fehlermeldung auf dem anderen PC gab den mittleren Wert als is not a valid iteger value an.