使用Delphi 6处理Unicode字符

我们必须为具有双字节字符集(DBCS)的操作系统提供支持,例如：日本OS.
因此,我们将SQL Server中的数据库字段从varchar更改为nvarchar.

轮询在使用DBCS的操作系统中工作正常.它也适用于非DBCS操作系统,如果
系统区域设置设置为日语/中文/韩语,操作系统具有相应的语言包.
但是,如果Locale设置为english,则数据库包含双字节字符的垃圾字符.

我进行了一些测试但未能确定解决方案.

例如如果我使用TStringList从UTF-8文件读取并将其保存到另一个文件,则保存Unicode数据.
但是,如果我使用文件的内容使用TADOQuery组件运行更新查询,则会显示垃圾字符.
该数据库还包含垃圾字符.

PFB示例代码：

var
    stlTemp : TStringList;
    qry : TADOQuery;
    stQuery : string;
begin
    stlTemp := TStringList.Create;
    qry := TADOQuery.Create(nil);
    stlTemp.LoadFromFile('D:DelphiUnicodeunicode.txt');
    //stlTemp.SaveToFile('D:DelphiUnicode1.txt'); // This works. Even though 
    //the stlTemp.Strings[0] contains junk characters if seen in watch

    stQuery := 'UPDATE dbo.receivers SET company = ' + QuotedStr(stlTemp.Strings[0]) +
        ' WHERE receiver_cd = N' + QuotedStr('Receiver'); 
    //company is a nvarchar field in the  database
    qry.Connection := ADOConnection1;
    with qry do
    begin
        Close;
        SQL.Clear;
        SQL.Add(stQuery);
        ExecSQL;
    end;
    qry.Free;
    stlTemp.Free
end;

以上代码在DBCS操作系统中正常工作.

我尝试过使用string,widestring和UTF8String.但是,如果语言环境设置为英语,则在英语操作系统中不起作用.

请提供此问题的任何指示.