Convertir jpg en bmp

[emeritos]

Muchas gracias ya lo he conseguido lo pongo aqui por si quieres utilizarlo para alguien más:

Código Delphi [-]
  imagen : TPicture;
  Jpg: TJPEGImage;
  Bitmap: TBitmap;
.
.
.

  Imagen:= TPicture.Create;
  Bitmap:= TBitmap.Create;
  Imagen.Assign(imgMain.Picture);
  foto := 'c:\xxxxx.jpg';
  Imagen.SaveToFile(foto);
  Bitmap.Width:= Imagen.Width;
  Bitmap.Height:= Imagen.Height;
  Bitmap.Canvas.Draw(0,0,Imagen.Graphic);
  foto := 'c:\xxxxx.bmp';
  Bitmap.SaveToFile(foto);
  imgMain.Picture.LoadFromFile(foto);

A mi me ha funcionado. Muchas gracias por tu paciencia.

Despues si quieres puedes borrar xxxxx.bmp y xxxxx.jpg una vez utilizado.