function UniCode2GB(S : String):String;Var I: Integer;beginI := Length(S);while I >=4 do begintryResult :=WideChar(StrToInt('$'+S[I-3]+S[I-2]+S[I-1]+S[I]))+ Result;except end;I := I - 4;end;end;