Не выводит числа

[tronuo]

В общем, я делаю программу.В первой форме я ввожу два числа, а во второй она с ними делает действия. Но, почему-то когда я пытаюсь вывести их значения, она туда ничего не выводит...
Unit1:

procedure TForm1.btn3Click(Sender: TObject);
 var j: integer;
begin
i:=StrToInt(edt1.Text) * 106;
z:=StrToInt(edt2.Text) * 23;
j:=Form2.ShowModal;
end;

Unit2:

edt11.Text:=IntToStr((i + z) * 23);
edt14.Text:=IntToStr(i);
edt15.Text:=IntToStr(z);
edt10.Text:=IntToStr(i + z + StrToInt(edt11.Text) + StrToInt(edt12.Text) +
StrToInt(edt3.Text) + StrToInt(edt4.Text) + StrToInt(edt5.Text) + StrToInt(edt6.Text) + StrToInt(edt7.Text));

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[volod3000]

А, Вы , связали эти формы

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

И на второй форме

Form1.edt11.Text:=IntToStr((i + z) * 23);
.............................
................