var
  sQueryText:String;
  OleQry,OleRes,Sel_ole,s1C8_ole: OleVariant;
begin
      s1C8_ole:=ConnectTo1C8_Application(Trim(cxTextEdit5.EditValue),
                                     Trim('Srvr="'+cxTextEdit1.EditValue+'";'+
                                          'Ref="'+cxTextEdit2.EditValue+'";'+
                                          'Usr='+cxTextEdit3.EditValue+';'+
                                          'Pwd='+cxTextEdit4.EditValue+';'),
                                     False);       
       sQueryText:=sQueryText+'ВЫБРАТЬ ';
       sQueryText:=sQueryText+'  Ж.Фирма, ';
       sQueryText:=sQueryText+'  Ж.ДатаДень, ';
       sQueryText:=sQueryText+'  Ж.Время, ';
       sQueryText:=sQueryText+'  Ж.КлиентСтр, ';
       sQueryText:=sQueryText+'  Ж.Госномер ';
       sQueryText:=sQueryText+'ИЗ ';
       sQueryText:=sQueryText+'  Справочник.ЖурналЗаписи Ж';
       sQueryText:=sQueryText+'   ГДЕ Ж.ДатаДень = &ДатаЗапроса';
       sQueryText:=sQueryText+' УПОРЯДОЧИТЬ ';
       sQueryText:=sQueryText+'   ПО ';
       sQueryText:=sQueryText+'   Ж.КлиентСтр ';
       OleQry := s1C8_ole.NewObject('Запрос');
       OleQry.Текст := sQueryText;
       OleQry.УстановитьПараметр('ДатаЗапроса',StrToDate('01.03.2011'));
       Sel_ole := OleQry.Выполнить().Выбрать();
     while Sel_ole.Следующий() do
     begin
           cxGrid5TableView1.DataController.RecordCount := i+ 1 ;
           //Тут ошибка
           cxGrid5TableView1.DataController.Values[i,  0 ] := Sel_ole.Фирма;
           cxGrid5TableView1.DataController.Values[i,  1 ] := Sel_ole.ДатаДень;
           cxGrid5TableView1.DataController.Values[i,  2 ] := Sel_ole.Время;
           cxGrid5TableView1.DataController.Values[i,  3 ] := Sel_ole.КлиентСтр;
           cxGrid5TableView1.DataController.Values[i,  4 ] := Sel_ole.Госномер;
           i:=i+ 1 ;
     end;
end;