ShellTreeView & ValueListEditor

Kode 

procedure TForm1.stwChange(Sender: TObject; Node: TTreeNode);
var
sr: TSearchRec;
t:integer;
begin
if valuelisteditor1.RowCount>2 then
begin
 for t:=1 to valuelisteditor1.rowcount-1 do
 valuelisteditor1.DeleteRow(1);
end;
if FindFirst(stw.Path+'\\*.*', 0, sr) = 0 then
begin
 repeat
  valuelisteditor1.InsertRow(sr.Name,'',true);
 until FindNext(sr) <> 0;
 FindClose(sr);
end;
end;