ListView-SubItem wird nicht eingetragen

[Mr_G]

Hallo zusammen,
ich habe mich heute mal ein bisschen an NonVCL probiert um mal ein kleines Tool zu schreiben aber leider hapert es am ListView:
Ich durchlaufe mittels RegEnumKeyEx die Registry und suche mir meine Schlüssel raus. Nun sollen bestimmte Schlüsselnamen zu einem Eintrag im ListView führen aber wenn ich in der bedingten Anweisung meinen Buffer mit dem Schlüsselnamen einbaue, werden keine SubItems mehr hinzugefügt:

Delphi-Quellcode:

//...
ZeroMemory(pBuf, pBufLen +1);
dwLen := pBufLen +1;
ret := RegEnumKeyEx(rkey, i, pBuf, dwLen, nil, nil, nil, nil);
if ret = ERROR_SUCCESS then
  begin
    if pBuf[0] = 'A' then //if true then -> Test2 erscheint im ListView
    begin
      lvi.mask      := LVIF_TEXT;
      lvi.iItem     := i;
      lvi.iSubItem  := 0;
      lvi.pszText   := 'Test';
      SendMessage(hwndLV, LVM_INSERTITEM, 0, LParam(@lvi));
      lvi.iSubItem  := 1;
      lvi.pszText   := 'Test2';
      SendMessage(hwndLV, LVM_SETITEM, 0, LParam(@lvi));
    end;
  end
else
  break;
Inc(i);
//...

Nun hoffe ich mir kann da jemand auf die Sprünge helfen.