Systemimgelist speichern

[verkouter]

Ich habe folgendes vor, man legt eine CD ins Laufwerk ein und mein Programm liest
die gesammte Verzeichnisstruktur in ein Treeview ein.Die Systeimagelist ist mit dem
Treeview verknüpft.Dann soll das Treeview inclusive Imagelist gespeichert werden, so
daß ich auch ohne CD durch die Verzeichnisstruktur blättern kann.
Mit dieser Procedur kann man ein Treeview als Stream speichern, das funktioniert
aber nur,wenn ich einer Imagelist selber schon Icons zugewiesen habe.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TFileStream;
begin
  F := TFileStream.Create('c:\TreeView.txt', fmCreate or fmShareCompat);
  try
    F.WriteComponent(TreeView1);
  finally
    F.Free;
  end;
end;