IconToBitmap mit weißem Hintergrund

[qb-tim]

Delphi-Quellcode:

function GetIconBitmap(sFile: String; iIndex: Integer): TBitmap;
var ABitmap: TBitmap;
begin
  ABitmap := TBitmap.Create;
  // jeweiliger Ausgangspunkt: Ein Bitmap das du mit der clBtnFace-Color füllst
  ABitmap.Canvas.Brush.Color := clBtnFace;
  ABitmap.Canvas.FillRect(ABitmap.Canvas.ClipRect);
  // anschließend: Draufmalen der Icon
  DrawIconEx(ABitmap.Canvas.Handle,0,0,Application.Icon.Handle,ABitmap.Width,ABitmap.Height,0,0,DI_NORMAL);
  // zum Schluss: Verknüpfen des Bitmaps mit der PopUp-Menuezeile
  Result := ABitmap;
end;

Ich sehe nichts im Menu.....

BTW: Wie lese ich aus der Datei sFile den Icon iIndex aus?