Sheet.Cells [index,5]:=FormatDateTime( 'dddddd', DataModule1.BookTable2.Fields.Fields [6].AsDateTime);