This is all of my delphi example