anchor.diff:    DestSize:cardinal;
     {$ENDIF}
   begin
  -  result :=FALSE;
  +  Result := false;
  +
  +  {$IFDEF WDC} OutputStream := nil; {$ENDIF} //This makes compiler happy
  +
     if FileExists(Filename) then begin
       AssignFile(TGAFile, Filename);
       FileMode:=0; Reset(TGAFile,1); FileMode:=2; //Open ReadOnly
  
positive.code:   // Don't support colormapped files
    if TGAHeader.ColorMapType <> 0 then
    begin
      Result := False;
      CloseFile(TGAFile);
      Errs := 'Couldn''t load "'+ Filename +'". Colormapped TGA files not 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);
  