TreeView_Expand - komplett Tree expandieren ?

[turboPASCAL]

Hi,

wie kann man denn den TreeView komplett expandieren ?
So klappt es nicht:

Delphi-Quellcode:

rocedure TWndList.FillTreeView(hwnd: HWND);
var
  hTreeView: dword;
  hRoot: HTREEITEM;
  i: integer;
begin
  hTreeView := GetDlgItem(hwnd, IDC_TREE1);

  TreeView_DeleteAllItems(hTreeView);

  tvis.hParent := TVI_ROOT;
  tvis.hInsertAfter := TVI_LAST;
  tvis.item.mask := TVIF_TEXT {or TVIF_IMAGE};
  tvis.item.pszText := 'First';

  hRoot := TreeView_InsertItem(hTreeView, tvis);
  tvis.hParent := hRoot;

  for i := 0 to 4 do
  begin
    tvis.item.pszText := PCHAR(format('Item %d', [i + 1]));
    tvis.hParent := TreeView_InsertItem(hTreeView, tvis);
  end;

  TreeView_Expand(hTreeView, hRoot, TVE_EXPAND);
end;