Registry - Schlüssel auflisten

[GoldNick]

Ich brauch noch mal Hilfe ...

Hab das jetzt geschaft ... aber ich schaff es nur in ein Memo auszugeben. Ich möchte aber gern das ausgelesene in ein TListView darstellen ...

Aber ich weiss nicht genau wie ich das realisieren soll :|

hier der Code mit vielen fehlern...

Delphi-Quellcode:

.......

var
  Form3: TForm3;
  reg: TRegistry;
  ValueList: array[1..100] of String;
  ListItem: TListItem;
  i: Integer;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  reg:=TRegistry.Create;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
  reg.GetValueNames(ValueList);
  ListView1.Items.BeginUpdate;

  for i := 0 to 100 do begin
  ListItem := ListView1.Items.add;
  ListItem.Caption := ValueList[i]
  end;


  ListView1.Items.EndUpdate;
  reg.CloseKey;
  reg.free;
  Button1.Caption:='Gelesen';
  Button1.Enabled:=false;
end;

end.

Hoffe mir kann jemand helfen :(