[emeritos]

Me falta una cosita en lo anterior lo repito por si acaso

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

  imgMain.Picture := TEDBImage1.Picture;
  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);