Delphi - Smooth resize

Attached a picture. I am trying to make a resize to this picture with CopyRect like this - [login to view URL](Rect(0,0,300,200),[login to view URL],Rect(0,0,[login to view URL],[login to view URL])); The result is a small picture with a lot of noise. I saw few codes about it on the web, but didn't success with anyone. I don't have time, and I need it fast - so if you know it - you can make easy money - fast.