diff --git a/docs/typinfex/ex15.pp b/docs/typinfex/ex15.pp
index 086ff1070f..5983839e3b 100644
--- a/docs/typinfex/ex15.pp
+++ b/docs/typinfex/ex15.pp
@@ -14,12 +14,12 @@ begin
   O:=TMyTestObject.Create;
   Writeln('Int64 property : ');
   PI:=GetPropInfo(O,'Int64Field');
-  Writeln('Value            : ',O.RealField);
+  Writeln('Value            : ',O.Int64Field);
   Writeln('Get (name)       : ',GetInt64Prop(O,'Int64Field'));
   Writeln('Get (propinfo)   : ',GetInt64Prop(O,PI)); 
-  SetInt64Prop(O,'RealField',12345);
+  SetInt64Prop(O,'Int64Field',12345);
   Writeln('Set (name,12345)    : ',O.Int64Field);
-  SetFloatProp(O,PI,54321);
+  SetInt64Prop(O,PI,54321);
   Writeln('Set (propinfo,54321) : ',O.Int64Field);
   O.Free;
-end.
\ No newline at end of file
+end.