Icon pixelfrei

[Nils_13]

In OnPaint funktioniert es, aber kann man das nicht auch in eine Funktion verpacken ?
Habe es probiert, ich sehe kein Icon:

Delphi-Quellcode:

GetIcon(Pfade[Akt], 0, Bmp);
Img.Picture.Bitmap := Bmp;
Bmp.Free;

procedure GetIcon(filename : String; IconIndex: Integer; var Result : TBitmap);
var MyIconH : HIcon;
    MyIcon  : TIcon;
    MyBMP   : TBitmap;
begin
   MyIconH := ExtractIcon(0, PChar(Filename), 0);
   if MyIconH <= 1 then 
     Exit;

   Result := TBitmap.Create;

   DrawIconEx(Result.Handle, 10, 10, MyIconH, 32, 32, 0, Result.Canvas.Brush.Handle, DI_NORMAL);

   MyIcon        := TIcon.Create;
   MyIcon.Handle := MyIconH;
   Result.Canvas.Draw(42, 10, MyIcon);

   MyBMP := TBitmap.Create;
   IconToBitmap(MyIconH, clGreen, MyBMP);
   Result.Canvas.Draw(74, 10, MyBMP);

   MyIcon.Free;
   MyBMP.Free;
end;