procedure TfrmAdmPlan.btnExportAdmPlanClick(Sender: TObject);
var
  AExcelApp: OLEVariant;
  ARowStart, I: Integer;
begin
  ARowStart := 24;
  with TOpenDialog.Create(Self) do
    try
      InitialDir := GetCurrentDir;
      Filter := 'Support Files (Excel Files)|*.xlsx;*.xls';
      if Execute then
      begin
        AExcelApp := CreateOleObject('Excel.Application');
        if VarIsNull(AExcelApp) then Exit;
        AExcelApp.DisplayAlerts := False;
        AExcelApp.Application.EnableEvents := False;
        AExcelApp.WorkBooks.Open(FileName);
        AExcelApp.ActiveWorkBook.WorkSheets[1].Cells[ARowStart, 2].Value := vw.DataController.Values[0, vwName.Index];
        AExcelApp.Visible := True;
        AExcelApp.ActiveWorkBook.SaveAs('Plan.xlsx');
      end;
    finally
      Free;
      AExcelApp.Quit;
      AExcelApp := UnAssigned;
    end;
end;

OleVariant(VarToDateTime(vw.DataController.Values[0, vwRegDate.Index]))