function GetBitmap(AIcon: TIcon): TBitmap;
var
   bitmap: TBitmap;
begin
   bitmap := TBitmap.Create;
   with bitmap do begin
      Transparent := True;
      TransparentColor := clWhite;
      SetSize(AIcon.Width, AIcon.Height);
      Canvas.FillRect(Canvas.ClipRect);
      Canvas.Draw(0, 0, AIcon);
   end;
   Result := bitmap;
end;