Экспорт из DBGrid в Excel и формат ячеек Дата

[demiancz]

Делаю экспорт из DBGrid в Excel так

procedure TForm1.Button2Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOLEObject('Excel.Application');
ExcelApp.Visible := false;
ExcelApp.WorkBooks.add;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Result';
for col :=0 to DBGrid2.Columns.Count-1 do
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,col+1].value:=dbgrid2.fields[col].displaylabel;
for row :=0 to DBGrid2.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid2.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,col+1].value:=dbgrid2.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,1]:=row+1;
end;
DBGrid2.DataSource.DataSet.Next;
end;
ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true;
ExcelApp.WorkBooks[1].WorkSheets[2].visible:=false;
ExcelApp.WorkBooks[1].WorkSheets[3].visible:=false;
ExcelApp.Range['B:B'].Select;
ExcelApp.Selection.NumberFormat:='0';
ExcelApp.Range['J:J'].Select;
ExcelApp.Selection.NumberFormat:=ShortDateFormat;
ExcelApp.Visible := true;
end;

При этом мне нужно один столбеч сделать в формате Дата а не текстовом. Поэтому в кодже есть такое:

ExcelApp.Range['J:J'].Select;
ExcelApp.Selection.NumberFormat:=ShortDateFormat;

После выгрузки нажимаю правой кнопкой мыши по ячейке. Смотрю Формат. Действительно ДАта, то что надо.
Но когда пытаюсь этот сформированный файл подключить к ADOQuery то эта колонка распознается как текстовый формат.
А если теже даты что в этой колонке вручную вписать, то тогда формат ADOQuery распознает как дата.
Как решить проблему не знаю. Мне надо что бы не вручную вписывать в ячейки даты, а что бы они сразу выгукжались в Excel как дата.