var 
 begintime: Tdatetime; 
 endtime : Tdatetime; procedure TForm1.Button1Click(Sender: TObject); 
begin 
ADOQuery1.Close; 
ADOQuery1.SQL.Clear; 
Try 
  ADOQuery1.Parameters.ParamByName('begintime').Value := DateTimePicker1.DateTime; 
  ADOQuery1.Parameters.parambyname('endtime').Value := DateTimePicker2.DateTime; 
  ADOQuery1.sql.Add('select * from Table1 where call =''' +Edit2.Text+''' and begin <:endtime and begin > : begintime'); 
except 
ADOQuery1.SQL.Clear; 
ADOQuery1.sql.Add('select * from Table1 where call ='''+Edit2.Text+''''); 
end; 
ADOQuery1.Open; 
ADOQuery1.Active := True; 
end; 
有错误!!没有找到"begintime" 我已经定义过SQL变量begintime和endtime了 不知道为什么?