with TForm2.Create(nil) do begin ShowModal; Update; { While not CheckBox1.Checked Do sleep(100);} Free; end;