TGraphic aus TImageList?

[PeterPanino]

Habe die Antwort inzwischen gefunden:

Delphi-Quellcode:

var
  bmp: TBitmap;
  gr: TGraphic;
begin
  bmp := TBitMap.Create;
  for i := 0 to Count;
  begin
    ImageList.GetBitmap(i, bmp);
    gr := TGraphic(bmp);

Aber ich verwende den Code in einer Schleife. Wie kann ich nun bmp bzw. gr bei jedem Schleifendurchgang so löschen, damit sich die Graphiken nicht bei jedem Schleifendurchgang überlagern? (bmp bei jedem Schleifendurchgang neu zu erzeugen und freizugeben ist ja zu zeitraubend). Und bmp.Empty funktioniert offensichtlich nicht.