我的内心很痛苦，如何保存ImageList里面的内容啊？(200分)

我想保存ImageList里面的内容，应该如何做呢？它可没提供什么SaveToXX的方法，
总不能叫我一个一个保存ImageList里的每个图像吧。。。。。。。。。。
呜，我需要帮助

我以前也像这样做，不过我没办法。我也想知道。

//write imagelist
procedure TForm1.Button1Click(Sender: TObject);
var FS : TFileStream;
begin
FS := TFileStream.Create('C:/save.Dat',fmCreate);
FS.WriteComponent(imagelist1);
FS.Free;
end;

//Read imagelist
procedure TForm1.Button2Click(Sender: TObject);
var FS : TFileStream;
begin
RegisterClass(TImageList);
FS := TFileStream.Create('C:/save.Dat',fmOpenRead);
TComponent(imagelist1) := FS.ReadComponent(imagelist1);
FS.Free;
end;

直接保存成一个bmp文件，调入时让他自动分割就可以了

hubdog，你实在是太可爱了，万分感谢。
其他人意思一下吧。