Convertir TGraphic a TIcon

[courtois]

Convertir casi cualquier decendiente de TGraphic a TIcon
g puede ser un TBitMap, un TJPEGImage, un TGifImage, etc.

Código Delphi [-]
function ToICO(g: TGraphic): TIcon;
var BMP  : TBitmap;
    CIL  : TCustomImageList;
begin
  try
    BMP:=TBitmap.Create;
    CIL:=TCustomImageList.Create(nil);
    BMP:=ToBMP(g); //usamos el truco de TGraphic a TBitMap :)
    CIL.Width:=BMP.Width;
    CIL.Height:=BMP.Height;
    CIL.Add(BMP,BMP);
    BMP.Free;
    Result:=TIcon.Create;
    CIL.GetIcon(0,Result);
    Result.Transparent:=True;
    CIL.Free;
  except
    Result:=nil;
  end;
end;