procedure WIC_Resize(ms: TMemoryStream; var NewHeight, NewWidth: Integer);
var
  WicImage : TWicImage;
  vScaler: IWICBitmapScaler;
  ImagingFactory: IWICImagingFactory;
begin
  WicImage := TWicImage.Create;
  ms.Position:= 0;
  WicImage.LoadFromStream(ms);

  if WicImage.Height>WicImage.Width then
  begin
     NewWidth:= Round(NewWidth*(WicImage.Width/WicImage.Height));
  end;

  if WicImage.Height<WicImage.Width then
  begin
     NewHeight:= Round(NewHeight*(WicImage.Height/WicImage.Width));
  end;

  ImagingFactory:= WicImage.ImagingFactory;
  ImagingFactory.CreateBitmapScaler(vScaler);
  vScaler.Initialize(WicImage.Handle, NewWidth, NewHeight, WICBitmapInterpolationModeFant);
  WicImage.Handle := IWICBitmap(vScaler);

  ms.Clear;
  WicImage.SaveToStream(ms);
  ms.Position:= 0;

  vScaler:= nil;
  ImagingFactory:= nil;

  WicImage.DisposeOf;
end;