Виснет прога

[$T@LKER]

Доброго времени суток!

Вот сижу ломаю голову - почему прога которую я разрабатываю у меня на компе и на некоторых пашет идеально а не которых при открытии окошка где много кода по выборке данных из базы данных, и после его закрытия прога виснет??? Данные берутся из сервера на хостинге где находится сама база MS-SQL??? Код кнопки большое которые заканчивается стандартной командой:

Close;

Если я че то не так делаю то помогите пожалуйста!!!!

Пишу на Delphi 7.

[AlDelta]

Вы явно что-то делаете не так. Скорее всего коврик для мыши не подходит по цветотипу к самой мыше. Попробуйте сменить.

Экстрасенсы в отпуске, выкладывайте код, скрины ошибок и все такое...

[$T@LKER]

В том то и дело что ошибки нету!! Прога либо может зависнуть после открытия окна или просто не закрыться!

Открываю окно так:

VubArendaDR.showmodal;

Закрываю просто командой Close;

[Alt]

Если бы не было ошибки - программа работала бы исправно. Выкладывайте код. Должны быть алгоритмические баги.

[$T@LKER]

Код большой! Кидаю тока участки самые важные:

Код открытия окна по нажатию на кнопку:

//аренда
if  (cxBazaLider.ActivePageIndex = 0)then
  begin
   if (BazaType = LIDER)
    then  VubArenda.show;

    if (BazaType = DOMRIA)
    then  VubArendaDR.showmodal;

    if (BazaType = AVIZO)
    then  VubArendaAvizo.showmodal;

    label18.Caption := inttostr(cxArenda.DataController.RecordCount);
  end;

Закрытие окна происходит после нажатия на кнопку с большим участком кода:

procedure TVubArenda.BitBtn4Click(Sender: TObject);
var
  i : integer;
  dat, dat1, dat2 : string;
begin

BitBtn4.Cursor := crSQLWait;

  with datamodule2 do
    begin
      with DataQuery do
        begin

        //викунується взалежності від введених даних(район, вулиця)

        close;

        with SQL do
         begin
              Clear;

             

                  Add('select * from аренда ');

              if (NCheck.Checked = true)
                then begin

                     if (Count <= 1)
                       then  add(' where ')
                	      else   add(' and ');

                        add('N = ' + IntToStr(N.Value));
                end;


ЗДЕСЬ КУЧА КОДА ПО ФОРМИРОВАНИЮ SQL-ЗАПРОСА


            add('order by дата desc');

               end;
            Open;
         end;
  end;

 with MainWindow do
      begin

            with LiderArendaMemo do
              begin
                  Clear;
                  Text := DataModule2.DataQuery.SQL.Text;
              end;
          
       end;

  BitBtn4.Cursor := crDefault;

  Close;

end;

[$T@LKER]

Может нужно как то по другом открывать и закрывать форму?

[AlDelta]

1. прикрутите логирование выполнения TVubArenda.BitBtn4Click и посмотрите где все падает/останавливается/зависает.
2. перепишите код убрав все with ... do

[$T@LKER]

Разве есть такая большая опасность в with ... do ??? Я вроде старался тщательно следить что к чему относить дабы какая то из команд случайно выполнилась не так как надо!