a imlpenmentation for  3GQQ protocol on Delphi