Delphi example added