Fórum de BMP para JPG #222410

// Declare Jpeg na seção USES. 

Function BmpToJpg(cImage: String):Boolean; 
var MyJPEG : TJPEGImage; MyBMP : TBitmap; 
begin 
   Result := False; 
   if fileExists(cImage + ´.bmp´) then
   begin 
      MyBMP := TBitmap.Create; 
      with MyBMP do
      begin
         try 
            LoadFromFile(cImage + ´.bmp´); 
            MyJPEG := TJPEGImage.Create; 
            with MyJPEG do
            begin
               Assign(MyBMP); 
               SaveToFile(cImage + ´.jpeg´); 
               Free;
               Result := True; 
            end;
         finally
            Free;
         end;
      end;
   end;
end;