anchor.diff:      BlockRead(TGAFile, TGAHeader, SizeOf(TGAHeader), bytesRead);
   
       if SizeOf(TGAHeader) <> bytesRead then begin
  -      Result := False;      
         CloseFile(TGAFile);
         Errs := 'Couldn''t read file header "'+ Filename +'".';
         MessageBox(HWND(nil),PChar(Errs), PChar('TGA File Error'), MB_OK);
         Exit;
       end;
   
  -    result :=TRUE;
  -  end else
  -  begin
  +  end else begin
       Errs := 'File not found  - ' + Filename;
       Application.MessageBox(PChar(Errs), PChar('TGA Texture'), MB_OK);
       Exit;
     end;
   
  -  if Result <> TRUE then exit;
  -
  +  //TGA is compressed by ZLibEx, thats only KaM Remake custom option
     ZLibCompressed := TGAHeader.FileType=120;
   
  -  //TGA is compressed by ZLibEx, thats only KaM Remake custom option
  +  //Uncompress TGA header
     if ZLibCompressed then
     begin
       CloseFile(TGAFile);
  
positive.code:   DestSize:cardinal;
    {$ENDIF}
  begin
    result :=FALSE;
    if FileExists(Filename) then begin
      AssignFile(TGAFile, Filename);
      FileMode:=0; Reset(TGAFile,1); FileMode:=2; //Open ReadOnly
  
negative.code: 
    if ColorDepth < 24 then
    begin
      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);
  