Как извлечь из Эксель правильно формат дата в Делфи?

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
d: TDateTime;
l:integer;
begin
if dbgrid1.Fields[3].AsInteger>1970 then
  begin
     d:=dbgrid1.Fields[3].AsDateTime;
     Label1.Caption:=DateToStr(d);
  end
else
  label1.Caption:=dbgrid1.Fields[3].AsString
 
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
EXLApp, vActiveWorkBook : variant;
Sheet : OleVariant;
st : string;
i,k : integer;
b : boolean;
begin
if Opendialog1.Execute then   //если файл экспорта выбран
  begin
    //пытаемся узнать наименование листа в эксель книге, для чего приходится
    //сначала открывать рабочую книгу через OLEObject
    EXlApp := CreateOleObject('Excel.Application');
    EXlApp.workbooks.Add(OpenDialog1.FileName);
    tablename:= '['+ExlApp.Sheets[1].Name + '$]';
    ExlApp.workbooks.close;
    ExlApp.quit;
    ExlApp:=unassigned;
 
    ADOQuery3.Active:=false;    //блок связывания эксель в качестве бд через ADO
    ADOConnection2.Connected:=false;
    adoconnection2.ConnectionString:='Provider =Microsoft.ACE.OLEDB.12.0; Data Source ='+opendialog1.FileName+'; Extended Properties ="Excel 12.0 Xml;HDR=YES;ReadOnly=false"';
    ADOQuery1.Active:=true;
    ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add('SELECT DISTINCT "Место рождения" FROM ' + tablename + ' WHERE ("Место рождения" IS NOT NULL) and (Vigruz IS NULL)');
    ADOQuery3.Open;
    ADOQuery2.SQL.Clear;
    ADOQuery2.SQL.Add('select * from adres');
    ADOQuery2.Open;
    ADOQuery1.Last;
    i := ADOQuery1.Fields[0].AsInteger;
 
    While not ADOQuery3.Eof do     //заполняем список комбобокс уникальными непустыми значеняимя поля 'MESTO_ROG'
      begin
        st := ADOQuery3.Fields[0].AsString;
        while pos('"',st)<>0 do delete(st,pos('"',st),1); //убираем из строки с н.п. кавычки, т.к. они искажают SQL запрос
        b := ADOQuery1.Locate('Adres',st,[]);
        if b = false then
           begin
                inc(i);
                ADOQuery2.SQL.Clear;
                ADOQuery2.SQL.Add('INSERT INTO Adres(AdresID, Adres) Values("' + inttostr(i) + '", "' + st + '")');
                ADOQuery2.ExecSQL;
                ADOQuery1.Close;
                ADOQuery1.Open;
           end;
        ADOQuery3.Next;
      end;
    DBLookUPCombobox1.KeyValue:=1;
    ADOQuery3.SQL.Clear;         //Экспортируем выбранный файл ексель в таблицу DBGRID1
    ADOQuery3.SQL.Add('SELECT * FROM ' + tablename);
    ADOQuery3.Open;
    DBGrid2.Enabled:=true;
    DBGrid1.Enabled:=true;
    DBGrid1.Visible:=true;
    ADOConnection1.Connected:=true;
    DataSource1.Enabled:=true;
    BitBtn4.Enabled:=true;
    DBLookUpCombobox1.Enabled:=true;
    RadioButton1.Enabled:=true;
    RadioButton2.Enabled:=true;
    CheckBox2.Enabled:=true;
    k:=DBLookupcombobox1.KeyValue;
    ADOQuery4.SQL.Clear;
    ADOQuery4.SQL.add('SELECT * FROM Description where Description.Adres_ID=' + inttostr(k));
    ADOQuery4.Open;
    DBGrid2.Enabled:=true;
    ADOConnection1.Connected:=true;
    If RadioButton2.Enabled = true then
        if Radiobutton2.Checked then
             begin
                 ADOQuery3.Active:=false;
                 DBGrid1.Enabled:=false;
                 ADOQuery3.SQL.Clear;
                 ADOQuery3.SQL.Add('SELECT * FROM ' + tablename + ' WHERE "Место рождения" = "' + DBLookupcombobox1.Text + '"');
                 ADOQuery3.Active:=true;
                 DBGrid1.Enabled:=true;
            end;
  end;
 
end;

    While not Adoquery3.Eof do //исправляем исковерканные экселем даты
          begin
          l:= dbgrid1.Fields[3].AsInteger;
          if l>1990 then
                  begin
                  ADOQuery3.Edit;
                  ShowMessage(DateToStr(IncDay(MyDate,l-2)) + 'строка № ' + inttostr(ADOQuery3.RecNo));
                  ADOQuery3.Fields[3].AsFloat := IncDay(MyDate,l-2);
                  ADOQuery3.Post;
                  end;

    While not Adoquery3.Eof do //исправляем исковерканные экселем даты
          begin
 
          l:= dbgrid1.Fields[3].AsInteger;
          if l>1990 then
                  begin
                  ADOQuery5.SQL.Clear;
                  ADOQuery5.SQL.Add('Update ' + tablename + ' SET "Год рождения" = "' + DateToStr(IncDay(MyDate,l-2)) + '"');
                  ADOQuery5.SQL.Add(' WHERE "Год рождения" = "' + inttostr(l) + '"');
                  ADOQuery5.ExecSQL;
                  end;

ADOQuery3.Edit;
ADOQuery3.Post;