Formato de fecha en Exportación a Excel

case Data_Type of
....
...
...
...   
    ftTimeStamp,ftDateTime :
    begin
      FXLRange.NumberFormat := '@';
      FXLRange.HorizontalAlignment := Alineacion;
      if Field_Value = null then
         Valor := ''
      else
         Valor := FormatDateTime(TDateTimeField(xlDataSet.Fields[Cell_Col-1]).DisplayFormat, Field_Value));  //Aquí da formato al valor del campo
    end;

  Valor := StrToDate(FormatDateTime(TDateTimeField(xlDataSet.Fields[Cell_Col-1]).DisplayFormat, Field_Value));

FormatNumber:='dd/mm/yyyy'.

Valor:=FormatToStr(Field_Value)

case Data_Type of
....
...
...
...   
    ftTimeStamp,ftDateTime :
    begin
      FXLRange.NumberFormat := '[$-409]dd-mm-yyyy;@';
      FXLRange.HorizontalAlignment := Alineacion;
      if Field_Value = null then
         Valor := 0
      else
         Valor := Field_Value; 
    end;

var 
  MyDate: TDate;
  AmericanFormat: TFormatSettings;
begin
  //Formato americano:
  GetLocaleFormatSettings( 0, AmericanFormat);
  AmericanFormat.ThousandSeparator:= ',';
  AmericanFormat.DecimalSeparator:=  '.';
  AmericanFormat.ShortDateFormat:=   'mm/dd/yyyy';
  //Envio fecha a un rango como texto:
  FXLRange.Value:= FormatDateTime('ddddd', MyDate, AmericanFormat);
end;

ftTimeStamp,ftDateTime :
    begin
      FXLRange.NumberFormat := 'dd/mm/aaaa';  // aaaa en vez de yyyy
      FXLRange.HorizontalAlignment := Alineacion;
      if Field_Value = null then
         Valor := ''
      else
         Valor := DateToStr(Field_Value);  // DateToStr en vez de FormatToStr
    end;