Creo que el problema es que la función FormatDateTime te devuelve un string. Excel te lo va a intentar convertir a fecha, pero si lo que quieres almacenar en la celda de Excel es un string, le colocas apóstrofos antes de la variable ('''' + FormatDateTime('dd-mm-yyyy', Trunc(CDSListFacFEC_FACT.AsDateTime)); ).
Si deseas que se almacene como fecha, pues deber utilizar una variable TDateTime (lo que yo suelo usar es FechaCorte : TDateTime; y luego Excel.Sheets[1].Cells[k+3, 22] := FechaCorte
.
No está demás recordar que Excel no permite representar fechas anteriores al 01/01/1900, por lo que hay que estar pendiente de estas limitaciones, sobre todo cuando el motor de base de datos sí permite un rango de fechas más amplio. A mi por ejemplo, me pasó que tenía que escribir en Excel cosas como: Atenciones4505[1].ConsultaGestante := '1845-01-01' y por esto me tocó escribir esa variable en excel como texto.