Как ожидать закрытия формы? Delphi

begin
Form4.Visible:=True;
//Тут какая-то команда для ожидания Form4.Visible:=закрыто; либо для Form4.Button1:=нажата;
//До закрытия формы действия, что ниже не должны начаться
for i:=1 to form4.spinedit1.Value do
begin
thr:=TMyTr.Create;
thr.Pause(1);
thr.Resume;
end;