Как в Showmessage

[Михаил Юрьевич]

Подскажите как сделать так ,что бы как в Showmessage, то есть так:
Есть код:

procedure TForm5.Button1Click(Sender: TObject);
begin
form1.CheckBox2.Checked:=false;
form1.CheckBox3.Checked:=true;
form1.CheckBox4.Checked:=false;
end;

Если в этот код вставить Showmessage,вот так:

procedure TForm5.Button1Click(Sender: TObject);
begin
form1.CheckBox2.Checked:=false;
Showmessage("):
form1.CheckBox3.Checked:=true;
form1.CheckBox4.Checked:=false;
end;

Запустив процедуру выполнится код до Showmessage,и выскочит окно,пока его не закроешь дальше код выполнятся не будет,так вот я и хотел спросить,можно как то открыть свою форму вместо Showmessage и пока ее не закрою код выполнятся не будет,типа так:

procedure TForm5.Button1Click(Sender: TObject);
begin
form1.CheckBox2.Checked:=false;
Form2.Show;
form1.CheckBox3.Checked:=true;
form1.CheckBox4.Checked:=false;
end;

From Stilet: Если есть код, то и оформление должно быть соответствующим. Пора бы уже запомнить. Спец тег # специально прикрутили для оформления кода - не стоит его игнорировать

[Черничный]

а form2.showmodal?

[Ring0Sn]

form1.CheckBox2.Checked:=false;
with Form2 do
try
  ShowModal;
Finally
  form1.CheckBox3.Checked:=true;
  form1.CheckBox4.Checked:=false;
end;

Аналогичное замечание по тегу оформления кода.

Бывает что просто забываешь такие мелочи. Ниразу не сталкивались с подобным случаем?.