DateTimePicker использование его в писке и записях в БД

ADOTable1.Fields[...].AsData:=DateTimePicker1.Date

ADOTable1.Fields[...].Value:=DateToStr(DateTimePicker1.Date)

ADOTable1.Fields[...]

ADOTable1.FieldByName('Название столбика')

procedure TForm1.Button6Click(Sender: TObject);
var filtr, // формируемая строка фильтра
d:string;
begin
Uspevaemost.Filtered:=false;
filtr:='';
if lenght(edit1.Text)>0 then
filtr:='id_studenta(FK)='+QuotedStr(edit1.Text);
if length(DateTimePicker1)>0 then \\ вот до сюда дописал и задумался а как дальше..
 
end;

...+DateToStr(DateTimerPicker.Date)

procedure TForm1.Button6Click(Sender: TObject);
var filtr, // формируемая строка фильтра
d:string;
begin
Uspevaemost.Filtered:=false;
filtr:='';
if lenght(edit1.Text)>0 then
filtr:='id_studenta(FK)='+QuotedStr(edit1.Text);
if length(DateTimePicker1)>0 then 
filtr:='Data_ocenki='+DateToStr(DateTimerPicker.Date)
end;

Uspevaemost.Filtered:=false
Uspevaemost.Filter:='data_ocenki=#'+DateToStr(DateTimePicker1.Date)+'#';
Uspevaemost.Filtered:=true;

procedure TForm1.Button2Click(Sender: TObject);
var filtr, // формируемая строка фильтра
d:string;
begin
anketa.Filtered:=false;
 
filtr:='';
if length(edit1.Text)>0 then
filtr:='Fam ='+QuotedStr(edit1.Text);
if length(edit2.Text)>0 then
begin
if length(filtr)>0 then d:=' and ' else d:='';
filtr:=filtr+d+'Imya ='+QuotedStr(edit2.Text);
end;
if length(edit3.Text)>0 then
begin
if length(filtr)>0 then d:=' and ' else d:='';
filtr:=filtr+d+'Otchestvo ='+QuotedStr(edit3.Text);
end;
if length(edit4.Text)>0 then
begin
if length(filtr)>0 then d:=' and ' else d:='';
filtr:=filtr+d+'Data_rozd ='+QuotedStr(edit4.Text);
end;
if length(edit5.Text)>0 then
begin
if length(filtr)>0 then d:=' and ' else d:='';
filtr:=filtr+d+'id_gruppi ='+QuotedStr(edit5.Text);
end;
if length(filtr)>0 then
begin
anketa.Filter:=filtr;
anketa.Filtered:=true;
end
else showmessage('Все поля пусты');
Uspevaemost.Filtered:=false;
filtr:='';
if length(edit1.Text)>0 then
filtr:='id_studenta(FK)='+QuotedStr(edit1.Text)
else showmessage('Все поля пусты');
Uspevaemost.Filtered:=false;
filtr:='';
if length(edit1.Text)>0 then
filtr:='id_studenta(FK)='+QuotedStr(edit1.Text)
else showmessage('Все поля пусты');
{вот от сюда вторую сетку DBGrid отфильтровать побывал}
Uspevaemost.Filtered:=false; {по аналогии как в начале того кода далаю..}
filtr:='';
if length(edit1.Text)>0 then
filtr:='id_studenta(FK)='+QuotedStr(edit1.Text)
else showmessage('Все поля пусты');
form1.DBGrid2.DataSource.DataSet.Active:=true; 
{пробовал что б сетка включалась ток когда условия фильтрации введены по фамилии}
 Uspevaemost.Filter:='data_ocenki=#'+DateToStr(DateTimePicker1.Date)+'#';{ну и само собой вот тот же кусок кода для пикера}
 Uspevaemost.Filtered:=true;   
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit7.Text:='';
anketa.Filtered:= False;
Uspevaemost.Filtered:=false; 
DBGrid2.DataSource.DataSet.Active:=false; { пытался выключить сетку вместе с фильтрами что б в ней не чего не отображалось.. потому что задача только по 1 студенту. (ЛистБокс вообще предлагали использовать но не понял я его)}
end;