anchor.diff:  begin
     if not AArgument.Check(0,[etDataset])
     then raise TRtfException.Create(rsUnexpectedParameterType);
  -  ATable := TRtfDataset(integer(AArgument[0].Value));
  +  ATable := TRtfDataset(Ptrint(AArgument[0].Value));
     ATable.Next;
   end;
   
  
positive.code: begin
    if not AArgument.Check(0,[etDataset])
    then raise TRtfException.Create(rsUnexpectedParameterType);
    ATable := TRtfDataset(integer(AArgument[0].Value));
    AArgument.Token := etLitInt;
    AArgument.Value := ATable.RecordCount
  end;
  
negative.code: begin
    if not AArgument.Check(0,[etDataset])
    then raise TRtfException.Create(rsUnexpectedParameterType);
    ATable := TRtfDataset(Ptrint(AArgument[0].Value));
    ATable.First;
  end;
  
  