Программа выполняется, но в ADOTable ничего не выводит

begin
with  Unit2.DataModule2.qry1 do
begin
  DataModule2.qry1 .Active:=false;
  DataModule2.qry1 .SQL.Clear;
  DataModule2.qry1 .SQL.Add('SELECT Имя_таблицы.поле1, Имя_таблицы.поле2, Имя_таблицы.поле3, Имя_таблицы.[поле-4]) ;
  DataModule2.qry1 .SQL.Add('Where Имя_таблицы.[поле-4]>=:" 'edt1.text' " and Имя_таблицы.[поле-4]<=:" 'edt2.text' " ');
  DataModule2.qry1 .SQL.Add('Order by Имя_таблицы.поле1');
  DataModule2.qry1 .Active:=True;
end;
Form20:=TForm20.Create(Application);
Form20.Show;
close;
end;

begin
with  Unit2.DataModule2.OPribitie do
begin
  DataModule2.OPribitie.Active:=false;
  DataModule2.OPribitie.SQL.Clear;
  DataModule2.OPribitie.Parameters.Clear;
  DataModule2.OPribitie.SQL.Add('SELECT Алфавитная_книга.Личное_дело, Алфавитная_книга.ФИО, Алфавитная_книга.Класс, Алфавитная_книга.Буква, Алфавитная_книга.[Прибытие-дата], Алфавитная_книга.[Прибытие-№_приказа], Алфавитная_книга.[Прибытие-откуда]FROM Алфавитная_книга') ;
  DataModule2.OPribitie.SQL.Add('WHERE (Алфавитная_книга.[Прибытие-дата]>=:d1) and (Алфавитная_книга.[Прибытие-дата]<=:d2)');
  DataModule2.OPribitie.Parameters.ParseSQL(DataModule2.OPribitie.SQL.Text, true);
  DataModule2.OPribitie.Parameters.ParamByName('d1').Value:=DTP1.DateTime;
  DataModule2.OPribitie.Parameters.ParamByName('d2').Value:=DTP1.DateTime;
  DataModule2.OPribitie.Active:=True;end;
Form20:=TForm20.Create(Application);
Form20.Show;
close;
end;