수치버튼클릭시

close;
modalresult := mrok;

해보세요.

델파이 객체와 윈도우 객체를 분리해서 생각하심 간단합니다....

TForm2 선언 부분...
  TForm2 = class(TForm)
    Button1: TButton;
    edtData: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    MyStr   :string; // --> 밖에서 필요한 데이터를 가지구 있다고 하고...
  end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   with TForm2.Create(nil) do begin
      try
         if mrOk = ShowModal() then begin    // --> 1)
            ShowMessage(edtData.Text + MyStr);  // --> 2)
            // edtData는 TForm2 꺼 겠죠?...
         end;
      finally
         Free;  // --> 3)
      end;
   end;
end;
위의 프로시져를 보면 1)이 실행되는 동안, 즉, ShowModal 이 실행되는
동안에 윈도우 객체가 있죠. 해당하는 델파이 객체는 3)까지 살아남아
있습니다.(창-Window-이 있느냐 하는 말이죠....)
따라서 필요한 데이터가 TForm2 에 만들어져 있다면, 혹은 TForm2에 있는
컨트롤에 필요한 데이터가 있다면 2) 에서 처럼 가져오면 됩니다.

오늘도 즐입다...^^

안녕하세요
mrOK, NO 말고 전역변수 하나 두어서 해보세요..
같은 방법이지만  참고하세요.

   with Q_PJCode_Info do
   begin
      try
         F_Choice_Code := TF_Choice_Code.Create( Application );
         if Q_PJCode_InfoCONTACT.AsString = 'Y' then P_Choice_Code.sCDID := '52'
         else P_Choice_Code.sCDID := '53';
         F_Choice_Code.ShowModal;

         if P_Choice_Code.bChoice then
         begin
            Q_PJCode_Info.Edit;
            Q_PJCode_Info.FieldByName( 'STATUS' ).AsString      := P_Choice_Code.sChoice_Code;
            Q_PJCode_Info.FieldByName( 'STATUS_NAME' ).AsString := P_Choice_Code.sChoice_Name;
         end;
      finally
         F_Choice_Code.Free;
      end;
   end;