Con la Ayuda de mi amigo Jhonny Suárez también miembro de este foro a quien le agradezco la ayuda, encontre la solucion, usando el componente TImageControl, que lo hace automáticamente.
dejo aquí el ejemplo para quien lo necesite o por si se me olvida.
Código Delphi
[-]
Var
Foto : TImageControl;
Begin
Foto := TImageControl.Create(Self);
Foto.Bitmap.LoadFromFile('FotoOriginal.jpg'); Foto.Bitmap.SaveToFile('NuevaFoto.jpg'); Foto.DisposeOf;
End;
El ejemplo lo hice con una Foto de 1.8mb y me quedo de 45.5 KB