Fejl i en "bette" database kode

Er der nogen der kan sehvad fejlen i denne kode er? Den skulle gerne vise et resultat i min DBGrid1 men det lader ikke til at der er noget tilbage i tabellen efter filtrering?

Kode:

Listboxvalgt:= Listbox1.Items.Strings[Listbox1.ItemIndex];

ValgtAlarm:= DateTimeToStr(MonthCalendar1.Date)+' '+Listboxvalgt[1]+Listboxvalgt[2]+Listboxvalgt[3]+Listboxvalgt[4]+Listboxvalgt[5]+Listboxvalgt[6]+Listboxvalgt[7]+Listboxvalgt[8];
    ADOTable4.Active := False;
    ADOTable4.Active := True;
    ADOTable4.Filtered:= False;
    ADOTable4.Filtered:= true;
    Datasource3.DataSet:= Adotable4;
    DBGrid1.DataSource:= Datasource3;

og i ADOTable4.OnFilterRecord

  Accept := DateOf(DataSet['Dato']) = StrToDateTime(ValgtAlarm);