No voy a darte la solución, pero te voy a contar como hacerlo:
Cargas tu archivo de cualquier tipo en un TPicture, calculas el tamaño en que lo quieres dejar, creas un TBitmap y le das el tamaño calculado, luego haces Bitmap.Canvas.StretchDraw( Rect(
datos calculados), Picture.Graphic), luego creas un TJpegImage, le asignas el Bitmap y luego le pones el CompressionQuality que tu desees.
Creo que no se me olvidó ningún paso, espero que te siva y
lee la Guía de Estilo
Saludos!