[MegaPiha]

Для данного кода только ADOTable1, который соединил с таблицей с датой.
Если у тебя база данных я так понимаю на форме уже должен быть ADOConnection и соответствующие компоненты ADOTable, ADOQuery, ADODataSet и т.п.