Ordner, Unterordner und Dateien darstellen?

[Paul0703]

So scheint es schon zu gehen:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject); 
begin 
  DeleteFile(Form1.ShellTreeView1.Selected.Text);
  Form1.ShellTreeView1.Update; 
  Form3.Close; 
end;

Aber da ich jetzt von ein FileListBox auf ShellTreeView umgestiegen bin, kommen noch einige Probleme