Ошибка SQL запросе

procedure TForm1.BitBtn5Click(Sender: TObject);
var
  Tekvr: TDateTime;
  EndOfWeek: TDateTime;
  st2 : string; // критерий запроса
  st3 : string;
  st4 : string;
 begin
  Tekvr:= Now; // 
  EndOfWeek := StartOfAWeek(YearOf(Tekvr), WeekOf(Tekvr)+1);
 
  st2 := FormatDateTime('dd/mm/yyyy', Tekvr);
  st3 := FormatDateTime('dd/mm/yyyy', EndOfWeek);
  st4 := 'Data ;='+st2+'AND'+ 'Data '+ st3 ;
   Form1.ADOQuery1.Active:=False;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.ADD('SELECT*');
  Form1.ADOQuery1.SQL.ADD('FROM Таблица1');
  Form1.ADOQuery1.SQL.ADD ('WHERE Data LIKE '''+st4+'''');
 
  Form1.ADOQuery1.Active:=True;
  Form1.ADOQuery1.Open;
  if form1.ADOQuery1.RecordCount ; 0 then   =; отсюда идет
        form1.DataSource2.DataSet := Form1.ADOQuery1;
  if form1.ADOQuery1.RecordCount ; 0 then   = сюда, потом
        PlaySound('ringin.wav', 0, SND_ASYNC)
    else                                     = сюда
        ShowMessage('По Вашему запросу ничего не найдено.');
end;