DataTimePicker

[Spaun]

Есть 2 DataTimePicker из них нужно выдернуть дату и время присвоить переменной. После В SQL запросе адресованному Аксесу используя эти переменные программа вылетает код:

procedure TAdmForm.BitBtn3Click(Sender: TObject);
var
datan,datak:string;
mdat,i,su,suk:integer;

begin
  datan:=FormatDateTime('m/d/yyyy',DateTimePicker1.Date);
 while pos('.',datan)<>0 do
  begin
   mdat:=pos('.',datan);
   Delete(datan,mdat,1);
   insert('/',datan,mdat);
  end;
 datak:=FormatDateTime('m/d/yyyy',DateTimePicker1.Date);
 while pos('.',datak)<>0 do
  begin
   mdat:=pos('.',datak);
   Delete(datak,mdat,1);
   insert('/',datak,mdat);
  end;
  ShowMessage(datak);

 DataModule1.ADOQueryPrib.Active:=false;
  DataModule1.ADOQueryPrib.SQL.Clear;
  DataModule1.ADOQueryPrib.SQL.Add('SELECT summ');
  DataModule1.ADOQueryPrib.SQL.Add('FROM Glav');
  DataModule1.ADOQueryPrib.SQL.Add('WHERE (out2=0) and(int>=#'+datan+'#) and (out<=out#'+datak+'#)');
  {DataModule1.ADOQueryPrib.SQL.Add('WHERE ( ((Glav.out2)=0) AND ((Glav.int)>=#'+datan+'#) AND ((Glav.out)<=#'+datak+'#))');}

  DataModule1.ADOQueryPrib.Active:=true;
  su:=0;
  i:=1;
  ShowMessage(inttostr(DataModule1.ADOQueryPrib.RecordCount));
  while i<=DataModule1.ADOQueryPrib.RecordCount do
    begin
      su:=su+DataModule1.ADOQueryPrib.FieldByName('summ').AsInteger;
      i:=i+1;
      DataModule1.ADOQueryPrib.Next;

    end;

Проще говоря нужно отобрать все знаечения summ, где out<=datak and int>=datan and out=0.