[an error occurred while processing this directive]
|
Form2.Show;
while True do
begin
if Form2.CheckBox.Checked then
begin
...
end
else
begin
...
end;
if Form2.ModalResult := mrOk then
begin
Form2.Hide;
break;
end;
Application.ProcessMessages;
end;