uses JPEG;
......
            With TJpegImage.Create do try
            Assign(BitMap);
            CompressionQuality := JPEG_TrackBar.Position; // Например, 60
            SaveToFile(FileName);
            end;

unit Unit4;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils,
  System.Variants,  System.Classes, Vcl.Graphics,  SynGDIplus,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var Form4: TForm4;

implementation
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var Bmp: TBitmap;
begin
Gdip := TGDIPlusFull.Create('gdiplus.dll');
Bmp := TBitmap.Create;
Bmp.LoadFromFile('d:\Graphic01.bmp');
SynGDIPlus.SaveAs(Bmp, 'd:\test.tif', gptTIF);
Bmp.Free;   FreeAndNil(GdiP);
end;

end.

unit Unit4;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils,
  System.Variants,  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var Form4: TForm4;

implementation
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
   With TWICImage.Create do try
   ImageFormat := wifBmp;
   LoadFromFile('d:\Graphic01.bmp');
   ImageFormat := wifTiff;
   SaveToFile('d:\Graphic01.tif');
   finally
   Free;
   end;
end;

end.

....
var MapBitmap: Graphics.TBitmap;   MapFileName: TFileName;
....
var Ext1: String;    MyWICImage: TWICImage;   MyJPEG, MyTIFF: Boolean;
....
MapBitmap.Free;   MapBitmap := Graphics.TBitmap.Create;
Ext1 := LowerCase(ExtractFileExt(MapFileName));
//++++++ Загрузка карты из файла типа TIFF добавлена 03.11.17 +++++++++
MyJPEG := (Ext1 = '.jpg') or (Ext1 = '.jpeg');
MyTIFF := (Ext1 = '.tif') or (Ext1 = '.tiff');
   If MyJPEG or MyTIFF then try
   MyWICImage := TWICImage.Create;
   If MyJPEG then MyWICImage.ImageFormat := wifJpeg
    else MyWICImage.ImageFormat := wifTiff;
   MyWICImage.LoadFromFile(MapFileName);
   MyWICImage.ImageFormat := wifBMP;
   MapBitmap.Assign(MyWICImage);
   finally
   MyWICImage.Free;
   end else MapBitmap.LoadFromFile(MapFileName);