Выборка из таблицы

[aimk0]

Появился еще один вопрос. Значение переменной dse я теперь беру из таблицы tb_RazuzBezRs, которая содержит поле DSE, далее также проверяю условия, заполняю tb_prom из tb_H06090.
Программа запускается, работает и в один прекрасный момент просто виснет. Я уже и не знаю где тут может быть ошибка.
Код приведен ниже

procedure TForm1.Button1Click(Sender: TObject);
var i,ii,yy:integer;
      dse:string;
begin
dm.tb_RazuzBezRs.First;
for yy:=0 to dm.tb_RazuzBezRs.RecordCount-1 do
Begin  //DSE iz RazuzBezRS    next
  dse:=dm.tb_RazuzBezRsDSE.AsString;

  dm.tb_prom.First; // Очистка таблицы tb_prom
  for i:=0 to dm.tb_prom.RecordCount-1 do begin
  dm.tb_prom.Delete;
  dm.tb_prom.Next;
  end;

if dm.tb_H06090.Locate('DSE', dse, []) and
   dm.tb_SH01007.Locate('DSE', dse, []) then begin
     with dm do
     begin
      query1.Close;
      query1.Sql.clear;
      query1.Sql.add('select DSE, Z from H06090 where DSE = '+ dse);
      query1.Open;
     end;
    while not dm.Query1.Eof do
    begin
     dm.tb_prom.Insert;
     dm.tb_promDSE.AsString:=dm.Query1.Fields[0].AsString; 
     dm.tb_promZ.AsFloat:=dm.Query1.Fields[1].AsFloat; 
     dm.tb_prom.Post;
     dm.Query1.Next;
    end;
    
  end;// locate
dm.tb_RazuzBezRs.Next;
End;
dm.tb_prom.Active:=true;
messagedlg('неподбор завершен', mtConfirmation, [mbOK], 0);
exit;
end;