Передача данных из формы в форму

#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
#include "Unit6.h" //ОБЯЗАТЕЛЬНО добавить для обращения к второй форме
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Вызов второй формы
  Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//Обработка данных, введенных на второй форме
  int i = StrToInt(Form2->Edit1->Text);
  int j = StrToInt(Form2->Edit2->Text);
  Label1->Caption = "Сумма чисел " + IntToStr(i) + " и " + IntToStr(j) + " = " + IntToStr(i + j);
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
    Form1->Label1->Tag = Edit1->Text.ToInt();
    Form1->Label2->Tag = Edit2->Text.ToInt();
    Close();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Form2->ShowModal();
     Label2->Caption = IntToStr(Label1->Tag+Label2->Tag);
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
  b = ((TButton*) Sender)->Tag;
  Close();
}

...
__published:    // IDE-managed Components
    TEdit *Edit1;
    TEdit *Edit2;
    TButton *Button1; //У этой кнопки свойство Tag == 1
    TButton *Button2; //Свойство OnClick == Button1Click;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    bool b; //Переменная для определения, какая кнопка нажата,
            //"Ввод" или "Отмена"
    __fastcall TForm2(TComponent* Owner);
};
...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2->ShowModal();
  if(Form2->b)
   {
     int i = Form2->Edit1->Text.ToInt();
     int j = Form2->Edit2->Text.ToInt();
     Label1->Caption = "Сумма чисел " + IntToStr(i) + " и " + IntToStr(j) + " = " + IntToStr(i + j);
   }
}

void __fastcall TForm1::FormClick( TObject * Sender )
{
    if ( Form3->Execute( ) && !IsNan( Form3->result ) )
    {
        ShowMessage( FloatToStr( Form3->result ) );
    }
}

class TForm3 : public TForm
{
__published: // IDE-managed Components
 
    TButton * btn_ok;
    TButton * btn_cancel;
    TEdit * edt1;
    TEdit * edt2;
 
    void __fastcall btn_okClick( TObject * Sender );
    void __fastcall btn_cancelClick( TObject * Sender );
 
private: // User declarations
 
        public : // User declarations
 
    bool executed;
    double result;
 
    bool Execute( void )
    {
        executed = false;
        result = NaN;
        ShowModal( );
 
        return executed;
    }
    __fastcall TForm3( TComponent * Owner );
} ;

void __fastcall TForm3::btn_okClick( TObject * Sender )
{
    double n1, n2;
    if ( TryStrToFloat( edt1->Text, n1 ) && TryStrToFloat( edt2->Text, n2 ) )
    {
        result = n1 + n2;
    }
    executed = true;
    Close( );
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm3::btn_cancelClick( TObject * Sender )
{
    Close( );
}