Кодировка

[Gennadiy]

Нужен хелп!
есть mysql utf8
клиент с nextdbgrid где везде прописана russian_charset
отображает вот так1.jpg
при клике на ячейку показывает нормально

вот по соединению к БД
ZQuery1.SQL.Text:= 'SET character_set_client = cp1251, character_set_connection = UTF8, character_set_results = cp1251;';

при экспорте в excel Тоже глюк с кодировкой

procedure TForm1.Button3Click(Sender: TObject);
var
XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
 XArr:=VarArrayCreate([1,ZQuery3.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;
 j := 1;
ZQuery3.First;
 while not ZQuery3.Eof do
  begin
   i:=1;
   while i<=ZQuery3.FieldCount do
    begin
     XArr[i] := ZQuery3.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+ZQuery3.FieldCount)+IntToStr(j)].Value := XArr;
  ZQuery3.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+ZQuery3.FieldCount)+IntToStr(j)].select;
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;
end;

как задавать кодировку? спасибо

[Gennadiy]

при изминении кодировки на OEM вот такое получилось

[munhauz]

это не кодировка
а шрифт ))
то есть он не имеет кирилицу
поменяй шрифт

[Gennadiy]

шрифт Verdena cirillyc тут кодировка базы UTF8 а клиекта win1251
как по поду запроса перекодировать?