Problema al redimensionar imagen jpg
 

Hola a todos estoy haciendo un programa que redimensione las imágenes, que le de el usuario a través de un openpicturedialog, al tomar la ruta lo muestra en un timage, hasta aqui funciona todo bien, el problema está al intentar redimensionar, que se crea un jpg con nombre, pero con tamaño vacío.

Mi código fuente es este:

TJPEGImage *jp = new TJPEGImage();
try
{
jp->Assign(Imagen1->Picture);
jp->Width = 300;
jp->Height = 300;
jp->SaveToFile("c:\\ipod.jpg");

}
__finally
{
delete jp;
}


Haber si me pudieran ayudar, muchas gracias de antemano, y saludos a todos.