hi max mir fällt nix besseres ein als das so zu machen
Code:
procedure BilchenAufPlatte;
var
image1: TBitMap;
i: integer;
begin
image1 := TBitMap.Create;
for i := 0 to ImageList1.Count - 1 do
begin
ImageList1.GetBitmap(i, Image1);
image1.SaveToFile('c:\bildchen' + inttostr(i) + '.bmp');
end;
image1.Free;
end;