Example of a pattern developed by using bpl mode in delphi