[eraplay]

Я уже замучился с этими курсовыми, помогите плз

Код:

Qry1.SQL.Clear;
 Qry1.SQL.Add('SELECT tr1, tr1.tovar, tr1.cena');
  Qry1.SQL.Add('FROM tr1');
 Qry1.SQL.Add('WHERE ((tr1.cena) BETWEEN (DateValue(''' + Edt1.Text +
                         ''')) AND (DateValue(''' + Edt2.Text + ''')));');
 Qry1.Active := True;
 AssignFile(sqlfile,'sql_instructions.txt');
 Rewrite(sqlfile);
 for i := 0 to Qry1.SQL.Count-1 do
          Writeln(sqlfile, Qry1.SQL.Strings[i]);
 CloseFile(sqlfile);

в одной проге все работает, я взял код и переименовал под себя, все проверил и исправил, но тут застрял.