Delphi XE4 синтаксис sql запроса

 SQL.Text:='select [t.mal_no, b.barkod], [t.mal_adi], [t.mal_yerel_adi], [to_char(t.update_datetime,'dd.mm.yyyy')]' +
       'from mal_tanim t, mal_barkod b'
       + 'where  t.mal_no = b.mal_no'
       +' and to_char(t.update_datetime,'dd.mm.yyyy')> to_date('30.05.2013','dd.mm.yyyy')';

    +' and to_char(t.update_datetime,'dd.mm.yyyy')between '+#39+FormatDateTime(S,DD1)+#39+' and '
         +#39+FormatDateTime(S,DD2)+#39';

SQL.Text:='select [t.mal_no], [b.barkod], [t.mal_adi], [t.mal_yerel_adi], [to_char(t.update_datetime,''dd.mm.yyyy'')]' + ...

procedure TForm1.N1Click(Sender: TObject);
var DD1,DD2:TDateTime;
  S:String;
begin
     if not mGetInterval(DD1,DD2) then Exit;
     S:=InputBox('Формат даты','Формат','yyyy/mm/dd');
     with qReport do
     begin
       DisableControls;
       Active:=false;
{селект}
  Active:=True;
      EnableControls;
     end;

 ('select *'
         +' from contour.contour_gunsonu_dosya t'
         +' where t.sales_date between '+#39+FormatDateTime(S,DD1)+#39+' and '+#39+FormatDateTime(S,DD2)+#39;).

ADOQuery1.sql.text:='select * from MyTable where MyField between :D1  AND :D2)';
ADOQuery1.Parameters.ParamByName('D1').Value:=DateTimePicker1.Date;
ADOQuery1.Parameters.ParamByName('D2').Value:=DateTimePicker2.Date;
ADOQuery1.Open;