아래 함수를 BMPtoJPG( 'mybitmap.bmp', 'myjpeg.jpg' ); 와 같이 파일명을 전달해서
호출하면 됩니다.

function BMPtoJPG( var BMPpic, JPGpic : String ) : boolean;
var
  Bitmap : TBitmap;
  JpegImg : TJpegImage;
begin
  Result := False;
  Bitmap := TBitmap.Create;
 
  try
     Bitmap.LoadFromFile( BMPpic );
     JpegImg := TJpegImage.Create;

     try
        JpegImg.Assign( Bitmap );
        JpegImg.SaveToFile(JPGpic);

        Result := True;
     finally
        JpegImg.Free;
     end;
  finally
     Bitmap.Free;
  end;
end;