汉字GB2312转Unicode

function GB2UniCode(GB:string):string; vars,stmp: string;i, j, k: integer;a: array [1..160] of char;begins:='';StringToWideChar(GB, @(a[1]), 500);i:=1;while ((a[i]<>#0) or (a[i+1]<>#0)) do beginj:=Integer(a[i]);k:=Integer(a[i+1]);s:=s+'\u'+Copy(Format('%X ',[k*$100+j+$10000]) ,2,4);//S := S + Char(k)+Char(j);i:=i+2;end;Result:=s;end;