Incompatible types: TDateTime and string

estou com erro Incompatible types: TDateTime and string na seguinte linha de codigo, se puderem me ajudar

Sistema.SetField(Mcon_Historico, FHistoricos.SetaComplemento(nil,PCodMvto^.CodHist,Global.CodigoUnidade,NumDcto, ,Sistema.Hoje,Edtctb.AsDate, Cliente +Ecodclifat.Text));