A 2048 Delphi implementation