запись из imagelist в файл

[viperrr]

код по переносу картинки из ImaGELIST в файл(bmp)
а реально ли сделать чтобы переносились сразу все картинки??
и если да, то помогите плиз

procedure TForm1.Button1Click(Sender: TObject);
var 
 b: TBitmap; // BitMap(bmp)
begin
 b := TBitmap.Create; //Создание
 try 
  ImageList1.GetBitmap(0, b); //0 - индекс картинки в IMageList / b BitMap(bmp)
  b.SaveToFile('D:\1.bmp'); //Сохранение
 finally
  b.Free; // Выгрузить
 end;
end;

[SERG1980]

Сделайте цикл

[Neeter]

Да, SERG1980 прав. В цикле писать надо:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 b: TBitmap;
begin
 b := TBitmap.Create;
 try
  for i := 0 to ImageList1.Count - 1 do
  begin
   ImageList1.GetBitmap(i, b);
   b.SaveToFile('D:\' + IntToStr(i + 1) + '.bmp');
  end;
 finally
  b.Free;
 end;
end;

[viperrr]

нет, это я понимаю, а как можно сделать, чтобы он записывал в один файл? может может можно перерисовать их по очереди в какую-нить канву или на рисунок, а потом загрузить в файл? я просто не знаком с графикой особо... хотя бы подскажите каким методом перерисовывать, если можно?

[viperrr]

спасибо, я все сделал как мне надо было, без имейдж листа=)