This example is intended for Delphi3 only.
