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));
     if ATable.Eof then
     begin
       AArgument.Token := etLitTrue;
  
positive.code:           ARecord := nil;
            AHeader := nil;
            AFooter := nil;
            ADataset := TRtfDataset(integer(AResultValue)); //Dirty!
  
            for i := 0 to AItem.Count - 1 do begin
              ATemp := AItem[i];
  
negative.code: begin
    if not AArgument.Check(0,[etDataset])
    then raise TRtfException.Create(rsUnexpectedParameterType);
    ATable := TRtfDataset(Ptrint(AArgument[0].Value));
    ATable.Open;
  end;
  
  