Циклы - модальное окно

[aesoem]

var
reg:Treginifile;
i:Integer;
bases:TStrings;
begin
reg:=Treginifile.Create('software');   //  переменная реестра
bases:=Tstringlist.Create;     // создание базы
bases.LoadFromFile('Bases.lst');     //загрузка базы
for i:=0 to bases.Count-1 do
reg.EraseSection(bases.Strings[i]);
bases.Free;         // <------
reg.Free;          //  <------
form6.showmodal;  //   <------
end;

Здравствуйте, опять созрел вопросец, что если прямо в цикле вызывать модальное окно или уничтажать переменные которые ещё используются? Мне кажется что эта конструкция работать небудет! Но моя делфля думает что все очень даже неплохо и работает нормально! Я канечно непротив работает - это хорошо но как оно может так работать это - интересно...

[Баламут]

А что тебя собственно удивляет? Отработал цикл, уничтожились переменные после цикла и на десерт вызывается модальное окошко... Все логично.

[aesoem]

После цикла код повторяет действия, впринципе переменные только очищаются => рабоать будут, но модальное окно должно прервать цикл.
Или после цикла выполняется только 1 строка? или же код от Begin до END?

[_SERGEYX_]

begin
for i:=0 to bases.Count-1 do
reg.EraseSection(bases.Strings[i]);

//ЗДЕСЬ ЦИКЛ УЖЕ ЗАКОНЧИЛСЯ.... !!!!!!!!!

bases.Free;
reg.Free;
form6.showmodal; 
end;