function LoadUniBi(const titleName: string; nagasa1: Longint): string;
var
wk:string;
Sz, n,m: integer;
begin
Result := '';
sz := length(titleName);
　SetLength(wk,sz);
　try
　　begin
　　　n := 0; 　　　m := 0;
　　　while n < sz do
　　　begin
　　　if (titleName[n+1]='\')and(titleName[n+2])='\') then begin Inc(n);continue;end;
　　　　wk[m+1+0] := titleName[n+1+1];
　　　　wk[m+1+1] := titleName[n+1　] ;
　　　　Inc(n, 2); Inc(m, 2);
　　　end;
　　Result := WideCharToString(PWideChar(PChar(wk)+2));//先頭2byteをカット
　　end;
　except
　　raise Exception.Create('メモリを確保出来ませんでした.');
　end;
end;