Delphi, работа с формами

[ScorpyS]

Имеются две формы Form1 и Form2.
Из формы1 я открываю вторую и во второй форме в Radiogroup я выбираю какой либо из пунктов и закрываю форму2. Как мне в форме1 получить тот результат, который был получен в 2ой?
Если перефразировать, то мне надо чтобы форма2 служила как окно настроек для 1ой.
Заранее благодарю.

[noob_11]

uses Unit2 в форме 1 uses Unit1 в первой и переменные глобальные

[ScorpyS]

в Unit2:

...
uses ... unit1;
...
var
  Form2: TForm2;
  seet: integer;
...
procedure TForm2.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: seet:=0;
1: seet:=1;
end;
close;
end;

в Unit1:

...
uses ... unit2;
...
var
  Form1: TForm1;
  seet: integer;
...
procedure blablabla
...
case seet of
  0:  proc1;
  1: proc2; 
end;
...

Сделал так, возможно где то туплю, но не получается ни проц1 ни проц2 не выполняются в последсвии. Спасибо заранее

[Chudo4258]

Сообщение от ScorpyS

в Unit2:

...
uses ... unit1;
...
var
  Form2: TForm2;
  seet: integer;
...
procedure TForm2.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: seet:=0;
1: seet:=1;
end;
close;
end;

в Unit1:

...
uses ... unit2;
...
var
  Form1: TForm1;
  seet: integer;
...
procedure blablabla
...
case seet of
  0:  proc1;
  1: proc2; 
end;
...

Сделал так, возможно где то туплю, но не получается ни проц1 ни проц2 не выполняются в последсвии. Спасибо заранее

seet: integer; вот это убири, эта переменная глобальная

[evg_m]

procedure blablabla
var
 f2: TForm2;
begin
....
f2:=Tform2.Create(nil); //и никаких глобальных (seek)переменных для хранения локальных данных(f2.radiogroup.ItemIndex)
// желательно также добавить закомментированные строки
// try желательно
....
if mrok=f2.showmodal then 
case f2.Radiogroup.ItemIndex of
  0:  proc1;
  1: proc2; 
end;
// finally
f2.Free;
//end;
....
end;