var
i:integer;
begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from emote');
    ADOQuery1.Open;
    for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
    begin
    Memo1.Lines.Add(ADOQuery1['id']);
    Memo1.Lines.Add(ADOQuery1['Action']);
    Memo1.Lines.Add(ADOQuery1['ALL']);
    if ADOQuery1['target']<>null then
    begin
    Memo1.Lines.Add(ADOQuery1['target']);
    end;
    ADOQuery1.MoveBy(1);
    end;
end;
这段代码得到的中文是乱码,怎样才能正确显示中文呢?
另外:Form和Memo的字符集我都已经设成了GB2312_CHARSET
操作系统是英文版XP