Extraña petición, lo normal es querer convertir una imagen a jpg por el problema del espacio, no al revés. Recuerda que las imágenes jpeg también pueden mostrarse en un TImage. De todas formas:
Código Delphi
[-]
uses jpeg;
procedure Convertir(Origen, Destino: string);
var
Imagen: TPicture;
Bitmap: TBitmap;
begin
Imagen:= TPicture.Create;
try
Imagen.LoadFromFile(Origen);
if not (Imagen.Graphic is TBitmap) then
begin
Bitmap:= TBitmap.Create;
try
Bitmap.Width:= Imagen.Width;
Bitmap.Height:= Imagen.Height;
Bitmap.Canvas.Draw(0,0,Imagen.Graphic);
Bitmap.SaveToFile(Destino);
finally
Bitmap.Free;
end;
end else Imagen.SaveToFile(Destino);
finally
Imagen.Free;
end;
end;
Convertir('d:\1.jpg','d:\2.bmp');