add examples of strategy pattern in Delphi