1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.BitBtn1Click(Sender: TObject);
var ImageList: TImageList;
begin
  ImageList:=TImageList.Create(Form1);
  ImageList.Height:=32;
  ImageList.Width:=32;

  ImageList:=ImageList1;
  ImageList.GetBitmap(0, MySpeedButton1.Glyph);
  ImageList.GetBitmap(1, MySpeedButton2.Glyph);
  ImageList.GetBitmap(0, Image1.Picture.Bitmap);
  ShowMessage('Weiter!');

  MySpeedButton1.Glyph:=NIL;
  MySpeedButton2.Glyph:=NIL;
  Image1.Picture.Bitmap:=NIL;
  ImageList:=ImageList2;
  ImageList.GetBitmap(0, MySpeedButton1.Glyph);
  ImageList.GetBitmap(1, MySpeedButton2.Glyph);
  ImageList.GetBitmap(0, Image1.Picture.Bitmap);
  ImageList.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

ButtonTmp := TBitmap.Create;
try
  Buttontmp.PixelFormat := pf32bit;
  ButtonTmp.Width := 16;
  Buttontmp.Height := 16;
  Nemp_MainForm.MenuSkinImageList.Clear;
  for i := 0 to 37 do
  begin
    ButtonTmp.Canvas.CopyRect(
      rect(0,0,16,16), ListenCompletebmp.Canvas,
      rect(i*16,0,i*16+16, ButtonTmp.Height));
    Nemp_MainForm.MenuSkinImageList.AddMasked(ButtonTmp,Buttontmp.Canvas.Pixels[0,0]);
  end;
  Nemp_MainForm.Nemp_MainMenu      .Images := Nemp_MainForm.MenuSkinImageList;
  Nemp_MainForm.Medialist_PopupMenu.Images := Nemp_MainForm.MenuSkinImageList;
  Nemp_MainForm.PlayListPOPUP      .Images := Nemp_MainForm.MenuSkinImageList;
  Nemp_MainForm.Player_PopupMenu   .Images := Nemp_MainForm.MenuSkinImageList;
finally
  ButtonTmp.Free;
end;					

1:
2:

for i:=0 to Anzahl do
  ImageList.GetBitmap(i, TSpeedButton(FindComponent('SpeedButton'+IntToStr(i+1))).Glyph);