//主窗口 调用

//  NewForm2.UniForm1.Show() ;          //非阻塞

  NewForm2.UniForm1.ShowModal();//阻塞

//子窗口 调用
procedure TUniForm2.UniButton1Click(Sender: TObject);
begin

  self.ModalResult := mrok; //将子窗口的返回值  mrok传回主窗口

  self.Close;   //关闭子窗口

end

//主窗口 调用

procedure TMainForm.UniButton1Click(Sender: TObject);

begin

  newform2.UniForm2.ShowModal(

    procedure(Sender: TComponent; Res: Integer)//主窗口接收子窗口传回的值 Res

    begin

      Case Res of

        mrOk: // 点Ok后执行的语句

          begin

            caption := 'mrOk'

          end;

        mrNo:   // 点No后执行的语句

          begin

            caption := 'mrNo'

          end;

        mrCancel:   // 点Cancel后执行的语句

          begin

            caption := 'Mrcancel'

          end;

      end;

    end

    );

end;