anchor.diff:  
     if ColorDepth < 24 then
     begin
  -    Result := False;
       CloseFile(TGAFile);
       Errs := 'Couldn''t load "'+ Filename +'". Only 24 and 32 bit TGA files supported.';
       Application.MessageBox(PChar(Errs), PChar('TGA File Error'), MB_OK);
  
positive.code:   // Only support 24, 32 bit uncompressed images
    if (TGAHeader.ImageType <> 2) then    { TGA_RGB }
    begin
      Result := False;
      CloseFile(TGAFile);
      Errs := 'Couldn''t load "'+ Filename +'". Only 24 and 32bit TGA supported.';
      Application.MessageBox(PChar(Errs), PChar('TGA File Error'), MB_OK);
  
negative.code:     BlockRead(TGAFile, TGAHeader, SizeOf(TGAHeader), bytesRead);
  
      if SizeOf(TGAHeader) <> bytesRead then begin
        CloseFile(TGAFile);
        Errs := 'Couldn''t read file header "'+ Filename +'".';
        MessageBox(HWND(nil),PChar(Errs), PChar('TGA File Error'), MB_OK);
        Exit;
      end;
  
    end else begin
      Errs := 'File not found  - ' + Filename;
      Application.MessageBox(PChar(Errs), PChar('TGA Texture'), MB_OK);
      Exit;
    end;
  
    //TGA is compressed by ZLibEx, thats only KaM Remake custom option
    ZLibCompressed := TGAHeader.FileType=120;
  
    //Uncompress TGA header
    if ZLibCompressed then
    begin
      CloseFile(TGAFile);
  