Foros Club Delphi - no puedo insertar bmp a jpg desde codigo.

saludos,

tengo que convertir bmp a jpg por codigo, he hecho un procedimiento para que lo haga estrayendo el id y buscarlo en la nueva tabla para ir insertando la imagen, de hecho la nueva tabla ya tiene datos solo falta agregar las imagenes.

Código PHP:


		
			
Var ID:double;
    MyJPEG : TJPEGImage;
    MyBMP  : TBitmap;
    fn:string;
begin
  IBQuery1.Open;
  IBQuery1.First;
  Destino.Open;
 try
  while not IBQuery1.Eof do
   begin
   ID:= IBQuery1ETIQUETA_ID.Value;
   Destino.Locate('ETIQUETA_ID',ID, []);
    fn:='C:\Logo.bmp';
    TBlobField(IBQuery1.FieldByName('ETIQUETA_IMAGEN')).SaveToFile('C:\Logo.bmp');
    MyBMP := TBitmap.Create;
    with MyBMP do
    try
     LoadFromFile(fn);
     MyJPEG := TJPEGImage.Create;
     with MyJPEG do
      begin
       Assign(MyBMP);
       SaveToFile('C:\YourJpegHere.jpg');
       Free;
       end;
     finally
      Free;
    end;
   Destino.Edit;
   DestinoETIQUETA_IMAGEN.LoadFromFile('C:\YourJpegHere.jpg');
   Destino.Post;
   IBQuery1.Next;
   end;
    trDestino.Commit;
   finally
    IBQuery1.close;
    Destino.close;
    ShowMessage('listo de procesar ....');
 end;
end;

Bueno si lo ejecuto me da el error de bitmap image is not valid. sin encambio si paso de bmp a bmp no hay problemas, pero es mejor convertir a jpg por el tamaño que ocupan.
gracias.