Frage zu TStringList

[kuba]

Hallo,

ich teste gerade mit TStringList ein paar Werte aus der Registry zu speichern.

Meine konkrete Frage : kann ich TStringList nur innerhalb einer Procedur verwenden ?

Mein (fehlerhafter) Code:

Delphi-Quellcode:

var
  sl        : TStrings;

procedure Portiere;
var
   zaehler   : integer;
   Registry  : tRegistry;
   value     : string;
begin
   sl := TStringList.Create;
   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;
    sl.Free;
end;

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

begin
    Portiere;
    ReadAll;
end.

KUBA