The moderator refused my question in this topic:
"Try it yourself before you ask it".
He/she is right.
Here is my solution in Visual Prolog 5.2.

1. I defined a project with UI strategy "VPI" and VPI option "MDI mode".
2. I inserted the following line in te automatically generated code:
Code:
predicates

  past()

clauses
...