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.