Komplette Imagelist abspeichern?

[DelphiDeveloper]

achso alle auf einmal in eine bitmap wie bei dem entwurfszeiteditor mit der
funktion "exportieren"

Code:

procedure TForm1.SaveImageListasBitMap(MyImageList: TImageList; const sOutputFile: string);
var
  Bmp : TBitmap;
  i : Integer;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Width := MyImageList.Width*ImageList1.Count;
    Bmp.Height := MyImageList.Height;

    with Bmp.Canvas do
    begin
      Brush.Color := clOlive;
      Brush.Style := bsSolid;
      FillRect(ClipRect);
    end;
    for i := 0 to MyImageList.Count-1 do
      MyImageList.Draw(Bmp.Canvas, i*MyImageList.Width, 0, i);
    Bmp.SaveToFile(sOutputFile);
  finally
    Bmp.Free
  end;
end;