La hay, pero me da que no la has
buscado (por favor, utilízala la próxima vez, sino la del foro, Google u otro similar, este código está reproducido en mil sitios, por ejemplo,
www.q3.nu/trucomania; gracias).
Código Delphi
[-]
var
j: TJPEGImage;
b: TBitmap;
begin
j:=JPEGImage.Create;
b:=TBitmap.Create;
j.LoadFromFile('C:\Imagen.jpg');
b.Assign(j);
b.SaveToFile('C:\Imagen.bmp');
b.Free;
j.Free;
end;
Salu2.