Fix 64bit compiler errors

1 files changed, 3 insertions, 3 deletions

diff --git a/extras/tiopf/gui/tiRtfReport.pas b/extras/tiopf/gui/tiRtfReport.pas
index 4f2d50d5..627d6d26 100644
--- a/extras/tiopf/gui/tiRtfReport.pas
+++ b/extras/tiopf/gui/tiRtfReport.pas
@@ -2901,7 +2901,7 @@ begin
     if AFieldName = '' then begin
       //Its a (nested) dataset
       Token := etDataset;
-      Value := integer(ADataset);
+      Value := PtrInt(ADataset);
     end
     else ResolveFieldValue(ADataset, AFieldName);
   end else begin
@@ -2927,7 +2927,7 @@ begin
   else begin
     //Its a dataset or objectlist reference
     Token := etDataset;
-    Value := integer(ADataset);
+    Value := PtrInt(ADataset);
   end;
 end;
 
@@ -4053,7 +4053,7 @@ begin
   AObject := TObject(Ptrint(AArgument.Value));
   ADataset := Datasets.Add(AObject, AAliasname, true);
   AArgument.Token := etDataset;
-  AArgument.Value := integer(ADataset);
+  AArgument.Value := PtrInt(ADataset);
 end;
 
 procedure TtiRtfParser.UdfLower(AArgument: TRtfArgument);