代码就仅此而已:
procedure TForm1.RadioGroup1Click(Sender: TObject);
const
  STRETCH_FILTER: array [0..1] of TStretchFilter = (sfNearest, sfLinear);
begin
  Src.Bitmap.StretchFilter := STRETCH_FILTER[RadioGroup1.ItemIndex];
  DoTransform;
end;
[DCC Error] MainUnit.pas(428): E2003 Undeclared identifier: 'TStretchFilter'
[DCC Error] MainUnit.pas(428): E2003 Undeclared identifier: 'sfNearest'
[DCC Error] MainUnit.pas(428): E2003 Undeclared identifier: 'sfLinear'
[DCC Error] MainUnit.pas(430): E2003 Undeclared identifier: 'StretchFilter'
[DCC Error] Transform_Ex.dpr(5): F2063 Could not compile used unit 'MainUnit.pas'