Frage zu TStringList

[kuba]

Ich hatte es mir schon so gedacht

Delphi-Quellcode:

var
  sl        : TStrings;


procedure Portiere;
var
   zaehler   : integer;
   Registry  : tRegistry;
   value     : string;
begin
   for zaehler := 0 to 100 + 1 do
   begin
   Registry := tRegistry.Create;
  Try
    Registry.RootKey := HKEY_LOCAL_MACHINE;;
    Registry.OpenKey ('\Software\KUBA\Minimize', False);
    Value := Registry.ReadString (IntToStr(zaehler));
    sl.add(Value);
    Registry.CloseKey;
  Finally
    Registry.Free;
  End;
    //ShowMessage(sl[zaehler]);
  end;
end;

procedure ReadAll;
var
    zaehler   : integer;
    Value     : string;
begin
    for zaehler := 0 to 100 + 1 do
    begin
    ShowMessage(sl[zaehler]);
    end;
end;

begin
    sl := TStringList.Create;
    Portiere;
    ReadAll;
    sl.Free;
end.

So geht´s, danke Muhmuh !!

KUBA