Add demo from freepascal wiki