function ToDBC( input :String):WideString;
var
c:WideString;
i:Integer;
begin
c := input;
for i:=1 to Length(Input) do
begin
if (Ord(c) = 12288) then
begin
c := chr(32);
continue;
end;
if (Ord(c) > 65280) and(Ord(c)<65375) then
c := WideChar( chr (ord(c) - 65248));
end;
result:=c;
end;
var
c:WideString;
i:Integer;
begin
c := input;
for i:=1 to Length(Input) do
begin
if (Ord(c) = 12288) then
begin
c := chr(32);
continue;
end;
if (Ord(c) > 65280) and(Ord(c)<65375) then
c := WideChar( chr (ord(c) - 65248));
end;
result:=c;
end;