Probleme mit TStrings

[Daniel]

An welcher Stelle hast Du denn die TStringList instanziiert? Folgendes Beispiel funktioniert bei mir (ichhabe lediglich den Pfad abgeändert, da er bei mir unter Windows XP nicht existierte).

Code:

procedure TForm1.Button1Click(Sender: TObject);
var someLines : TStringList;
begin

  [b]someLines:= TStringList.Create;[/b]

  with TRegistry.create(KEY_READ) do
  begin
    Rootkey:=HKEY_LOCAL_MACHINE;
    OpenKey('Software', false);
    getKeyNames(someLines);
    closekey;
    free;
  end;

  // Nun einfach in einem Memo anzeigen
  Memo1.Lines.Assign(someLines);

  [b]someLines.Free;[/b]
end;