TStrings ausgeben

[geisi]

bekomme jedesmal eine eaccessviolation(zugriffsverletzung bei adresse...) - errormessage

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
  keys: TStrings;
  i: integer;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
    reg.GetKeyNames(keys);
    showmessage(keys.text);
  end;
end;

geht aber so auch nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
  keys: TStrings;
  i: integer;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
    reg.GetKeyNames(keys);
    showmessage(keys.Strings[1]);
  end;
end;