Point of Sales system coded in Delphi XE2