[icWasya]

Вынести код запуска форм в вызывающий метод:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
  if Form2.ModalResult = mrOk then
     Form3.ShowModal
  else
  if Form2.ModalResult = mrYes then
    Form4.ShowModal
end;