diff --git a/source/main.pas b/source/main.pas
index b03f659e..df815344 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -2114,6 +2114,9 @@ begin
   end else if IsBinary and (Copy(Header, 1, 2) = 'BM') then begin
     SaveBinary := true;
     filename := filename + 'bmp';
+  end else if IsBinary and (Copy(Header, 3, 2) = #42#0) then begin
+    SaveBinary := true;
+    filename := filename + 'tif';
   end;
 
   if not IsBinary then begin