How to resize a picture?

Question

I have image (500x500) but I need to resize it to 200x200 and paint it on TImage. How to achieve such result?

Note
I know about Stretch

Answer 1

I propose JanFX library (now incorporated into the fat Jedi distribution but FORTUNATELY you can extract this file from Jedi). In JanFX see the Stretch (I think) function. It gives a very nice smoothing (not as good as Graphics32 but good enough) but much much faster. The JanFX.pas in Jedi is bugged: does not work when {$R} is ON. You need to define {$R-}. That's it. The guys at Jedi entered this bug :)