你真的，真的想使用Graphics32。

procedure DrawSrcToDst(Src, Dst: TBitmap32);
var
  R: TKernelResampler;  
begin
  R := TKernelResampler.Create(Src);
  R.Kernel := TLanczosKernel.Create;
  Dst.Draw(Dst.BoundsRect, Src.BoundsRect, Src);
end;

在对图像进行重采样时，你有几种方法和过滤器可供选择。上面的例子使用了一个内核重采样器（有点慢，但效果很好）和一个Lanczos过滤器作为重建内核。上面的例子应该适合你。

如果你恢复使用Win32 API调用，你可以使用SetStretchBltMode到HALFTONE和使用StretchBlt。我不确定这是否是使用默认的 Delphi 调用提供的，但这是我通常解决这个问题的方法。
更新（2014-09）**刚才我也是类似情况（再次）在TScrollBox中有一个TIimage，表单上有很多内容，真的很想让Image1.Stretch:=true;做半色调。正如Rob所指出的，TBitmap.Draw使用HALFTONE only 当目标画布是8位/像素或更低，而源画布有更多...所以我'fixed'将Image1.Picture.Bitmap指定为下列其中之一：

TBitmapForceHalftone=class(TBitmap)
protected
  procedure Draw(ACanvas: TCanvas; const Rect: TRect); override;
end;

{ TBitmapForceHalftone }

procedure TBitmapForceHalftone.Draw(ACanvas: TCanvas; const Rect: TRect);
var
  p:TPoint;
  dc:HDC;
begin
  //not calling inherited; here!
  dc:=ACanvas.Handle;
  GetBrushOrgEx(dc,p);
  SetStretchBltMode(dc,HALFTONE);
  SetBrushOrgEx(dc,p.x,p.y,@p);
  StretchBlt(dc,
    Rect.Left,Rect.Top,
    Rect.Right-Rect.Left,Rect.Bottom-Rect.Top,
    Canvas.Handle,0,0,Width,Height,ACanvas.CopyMode);
end;

您可以尝试使用GraphUtil中的内置 Delphi ScaleImage

我使用GDIPOB.pas的TGPGraphics类
如果Canvas是TGPGraphics，Bounds是TGPRectF，NewImage是TGPImage示例：

Canvas.SetInterpolationMode(InterpolationModeHighQualityBicubic);
Canvas.SetSmoothingMode(SmoothingModeHighQuality);
Canvas.DrawImage(NewImage, Bounds, 0, 0, NewImage.GetWidth, NewImage.GetHeight, UnitPixel);

您可以通过更改插值模式来选择质量与速度系数

InterpolationModeDefault             = QualityModeDefault;
InterpolationModeLowQuality          = QualityModeLow;
InterpolationModeHighQuality         = QualityModeHigh;
InterpolationModeBilinear            = 3;
InterpolationModeBicubic             = 4;
InterpolationModeNearestNeighbor     = 5;
InterpolationModeHighQualityBilinear = 6;
InterpolationModeHighQualityBicubic  = 7;

和平滑模式：

SmoothingModeDefault     = QualityModeDefault;
SmoothingModeHighSpeed   = QualityModeLow;
SmoothingModeHighQuality = QualityModeHigh;
SmoothingModeNone        = 3;
SmoothingModeAntiAlias   = 4;

注意：这需要XP或更高版本，或者在安装程序中捆绑gdiplus.dll。