SpeedButton ein Bitmap aus einer TImageList zuweisen

[Pseudemys Nelsoni]

Delphi-Quellcode:

 
procedure TForm1.BitBtn1Click(Sender: TObject); 
var 
  Bmp: TBitmap; 
begin 
  Bmp := TBitmap.Create(); 
  try 
    if ImageList1.GetBitmap(0, Bmp) then 
      BitBtn1.Glyph.Assign(Bmp); 
  finally 
    Bmp.Free; 
  end; 
end;

so steht es da, aber kann mir den code wer erklären?. wie gesagt ich mach das ganze noch nicht lang und frag mich wieso das bild in eine variable muss wenn es doch einfacher gehen muss.....einfach aus der timagelist laden oder nicht? Und wieso ist 2 mal end; da wenn nur einmal begin auftaucht? und noch eine frage
meine timagelist spinnt irgendwie, egal welches bild ich einfüge der rechte rand(1 pxl) fehlt immerobwohl das bild ganz ist, weiss wer den grund?