Зависание в цикле

    D:=Date;
    DataModule1.QOther.SQL.Add('select * from clients where date_next=:date');
    DataModule1.QOther.Parameters.ParamByName('date').Value:=D;
    DataModule1.QOther.Open;
    Form3.Memo1.Clear;
 
  while not DataModule1.QOther.Eof   do
 label1.caption:=label1.caption +#13#10+ DataModule1.QOther.FieldByName('FIO').aSString  ;
end;

  while not DataModule1.QOther.Eof   do begin
    label1.caption:=label1.caption +#13#10+ DataModule1.QOther.FieldByName('FIO').aSString;
    Application.ProcessMessages;
    DataModule1.QOther.Next;
  end;

 {ðåäàêòîð þçåðîâ}
procedure TForm3.N2Click(Sender: TObject);
begin
   DataModule1.QRed_user.Close;
   DataModule1.QRed_user.SQL.clear;
   DataModule1.QRed_user.SQL.Add('select * from accaunts where id=:id_user');
   DataModule1.QRed_user.Parameters.ParamByName('id_user').Value:=id_user;
   DataModule1.QRed_user.Open;
   Form2.Edit1.text:=DataModule1.QRed_user.FieldByName('login').aSString;
   Form2.Edit2.text:=DataModule1.QRed_user.FieldByName('pass').aSString;
   Form2.Edit3.text:=DataModule1.QRed_user.FieldByName('FIO').aSString;
   Form2.Edit4.text:=DataModule1.QRed_user.FieldByName('mail').aSString;
   Form2.Edit5.text:=DataModule1.QRed_user.FieldByName('tel').aSString;
   Form2.Show;
end;     {ðåäàêòîð þçåðîâ}
 
      {âûâîä íà ïàíåëè èíôîðìàöèè}
procedure TForm3.DBGridEh1CellMouseClick(Grid: TCustomGridEh;
  Cell: TGridCoord; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer; var Processed: Boolean);
  var
    id_acc,id,st:integer;
begin
    id_acc:=DBGridEh1.DataSource.DataSet.Fields[0].AsInteger;
    id:=    DBGridEh1.DataSource.DataSet.Fields[1].AsInteger;
    st:=    DBGridEh1.DataSource.DataSet.Fields[2].AsInteger;
    panel1.Caption:=Inttostr(id);
    panel2.Caption:=Inttostr(id_acc);
    panel3.Caption:=Inttostr(st);
 end;       {âûâîä íà ïàíåëè èíôîðìàöèè}
 
procedure TForm3.FormShow(Sender: TObject);
var D:TDateTime;
begin    {Ñêðûòèå ïàíåëåé, åñëè íå àäìèí}
    if Form1.id_role <> 1 then
    begin
      panel1.Visible:=false;
      panel2.Visible:=false;
      panel4.Visible:=false;
    end;
 
    {çàãðóçêà èíôû â ãëàâíóþ òàáëèöó}
    DataModule1.QLoad_info.Close;
    DataModule1.QLoad_info.SQL.Clear;
    DataModule1.QLoad_info.sql.Add('select  id_stadia, clients.id, id_acc, accaunts.fio, clients.fio, date_zvon, date_next, clients.tel, data_zaved, comment from clients Inner join accaunts on  accaunts.id = clients.id_acc');
    DataModule1.QLoad_info.Open;
         {âûâîä êàïøèîíñ ôîðìû}
    DataModule1.QOther.Close;
    DataModule1.QOther.SQL.Clear;
    DataModule1.QOther.SQL.Add('select * from accaunts where id=:id');
    DataModule1.QOther.Parameters.ParamByName('id').Value:= form1.id_acc;
    DataModule1.QOther.Open;
    Form3.Caption:='Ïîëüçîâàòåëü -'+ DataModule1.QOther.FieldByName('FIO').aSString;
 
 
    {Çàïîëíåíèå ÌÅÌÎ1}
    DataModule1.QOther.Close;
    DataModule1.QOther.SQL.clear;
    D:=Date;
    DataModule1.QOther.SQL.Add('select * from clients where date_next=:date');
    DataModule1.QOther.Parameters.ParamByName('date').Value:=D;
    DataModule1.QOther.Open;
    Form3.Memo1.Clear;
 while not DataModule1.QOther.Eof do
   begin
    memo1.Lines.Add('Êëèåíòó ' + DataModule1.QOther.FieldByName('FIO').aSString + ' íåîáõîäèìî ïîçâîíèòü!' );
    Application.ProcessMessages;
    DataModule1.QOther.Next;
   end;
end;

 {áëîê ïðîâåðîê ïðîãðàììû íà îøèáêè è óñòðàíåíèå èõ ïðîãðàììíî}
procedure TForm1.FormShow(Sender: TObject);
begin
 If DataModule1.ADOConnection1.Connected =False
 Then DataModule1.ADOConnection1.Connected:=True;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer;
  pass:string;
begin
  if (Edit1.text='')or(Edit2.Text='') then
   begin
     showMessage('Çàïîëíèòå âñå ïîëÿ!');
     Exit;
    end else
 
 
   DataModule1.QLogin.close;
   DataModule1.QLogin.SQL.clear;
   DataModule1.QLogin.SQL.Add('select * from accaunts');
   DataModule1.QLogin.Open;
    while not(DataModule1.QLogin.Eof) do
     if (DataModule1.QLogin.FieldByName('login').AsString = Edit1.text) and
        (DataModule1.QLogin.FieldByName('pass').AsString = Edit2.text) then
       begin
          id_acc:=DataModule1.QLogin.FieldByName('id').aSinteger;
          id_role:=DataModule1.QLogin.FieldByName('role').aSinteger;
        {Çàãðóçêà äàííûõ â ìåìî }
          Form3.show;
          Form1.Visible:=False;
       end else
         begin
          ShowMessage('Íåâåðíûå äàííûå!');
          Exit;
         end; 
 
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (Edit1.text = '') or (Edit2.Text = '') then begin
    showMessage('Заполните все поля!');
    Exit;
  end;
 
  DataModule1.QLogin.SQL.Text := 'select * from accaunts';
  DataModule1.QLogin.Open;
  while not DataModule1.QLogin.Eof do begin
    if (DataModule1.QLogin.FieldByName('login').AsString = Edit1.text) and
       (DataModule1.QLogin.FieldByName('pass').AsString = Edit2.text) then
    begin
      id_acc := DataModule1.QLogin.FieldByName('id').aSinteger;
      id_role := DataModule1.QLogin.FieldByName('role').aSinteger;
       {Загрузка данных в мемо }
      Form1.Visible := False;
      Form3.show;
      break;
    end;
    DataModule1.QLogin.Next;
  end;
 
  if id_acc = 0 then
    ShowMessage('Неверные данные!');
end;