delphi code from libqrencode