anchor.diff:    end
     else
     begin
  +    setlength(c,SizeX*SizeY*4+1);
       blockread(f,c[1],SizeX*SizeY*4);
       closefile(f);
     end;
  
positive.code:     OutputStream := TMemoryStream.Create;
      DecompressionStream := TZDecompressionStream.Create(InputStream);
      OutputStream.CopyFrom(DecompressionStream, 0);
      OutputStream.Position := 18; //SizeOf(TGAHeader)
      OutputStream.ReadBuffer(c[1], SizeX*SizeY*4);
      InputStream.Free;
      OutputStream.Free;
  
negative.code:   SizeX := c[13]+c[14]*256;
    SizeY := c[15]+c[16]*256;
  
    if c[1]=120 then
    begin
      {$IFDEF VER140}
  