Registry, Standartwert auslesen

[Pseudemys Nelsoni]

hoi,

also bei folgendem bekomme ich nur ca 12 leere items in mein listview, in den regeinträgen steht aber 100% überall was drin:

Delphi-Quellcode:

procedure TForm5.FormShow(Sender: TObject);
var
  reg: TRegistry;
  sl: tstringlist;
  i: integer;
  ListItem: TListItem;
begin
  reg := TRegistry.Create;
  sl := TStringlist.Create;
  with reg do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey('Wchat', false);
    GetKeyNames(sl);
    for i := 0 to sl.Count-1 do
    begin
      if Pos('Nick', sl[i]) > 0 then
      begin
        OpenKey('Wchat\' + sl[i] + '\Nick', false);
        ListItem := Listview1.Items.Add;
        ListItem.Caption := ReadString('Standard');
        OpenKey('Wchat\' + sl[i] + '\Pass', false);
        ListItem.SubItems.Text := ReadString('Standard');
      end;
    end;
    CloseKey;
    Free;
  end;
  sl.Free;
end;

weiss jemand was falsch ist?

mfg