Qry1.SQL.Clear;
 Qry1.SQL.Add('SELECT tovar, cena');
 Qry1.SQL.Add('FROM tr1');
 Qry1.SQL.Add('WHERE cena BETWEEN :P1 and :P2;');
 Qry1.ParamByName('P1').Value := StrToInt(Edt1.Text);
 Qry1.ParamByName('P2').Value := StrToInt(Edt2.Text);
 Qry1.Open;
{ это всё лишнее
 AssignFile(sqlfile,'sql_instructions.txt');
 Rewrite(sqlfile);
 for i := 0 to Qry1.SQL.Count-1 do
          Writeln(sqlfile, Qry1.SQL.Strings[i]);
 CloseFile(sqlfile);
}
// если хочется сохранить запрос в файл, то это делается проще
 Qry1.SQL.SaveToFile('sql_instructions.txt');