Zitat:
Und wieso ist 2 mal end; da wenn nur einmal begin auftaucht?
Weil es nicht nur
begin end gibt, sondern auch
try finally end bzw.
try except end.
Der Code lässt sich aber auch einfacher darstellen:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;