[lmikle]

Зачем? У тебя есть форма. Сделай в модуле просто функцию вызова этой формы, еоторая вернет тебе введенные пользователем данный. Типа:

Код:

unit MySuperPuperFrm;

interface

uses ...;

type
  TMySuperPuperForm = class(TForm)
     Edit1 : TEdit;
     Edit2 : TEdit;
     CheckBox1 : TCheckBox;
  ...
  end;

function ShowMySuperPuperForm(var E1, E2 : Stirng; var CB1 : Boolean) : Boolean;

implementation


function ShowMySuperPuperForm(var E1, E2 : Stirng; var CB1 : Boolean) : Boolean;
begin
  With TMySuperPuperForm.Create(Application) Do
    Begin
       Result := ShowModal = mrOK;
       If Result Then
         Begin
            E1 := Edit1.Text;
            E2 := Edit2.Text;
            CB1 := CheckBox1.Checked;
            ...
         End;
       Free;
    End;
end;

...

end.

Теперь в любом модуле подключаешь этот свой моуль и вызываешь эту функцию, передав ей набор переменных, типа:

Код:

uses MySuperPuperFrm;
...
function BoolToStr(B : Boolean) : String;
begin
  If B Then Result := 'Да' Else Result := 'Нет';
end;

procedure TForm1.Buttin1Click(Sender : TObject);
var
  E1, E2 : String;
  CB1 : Boolean;
begin
  if ShowMySuperPuperForm(E1,E2,CB1) 
    Then ShowMessage('User select:'#13#10'E1 = '+E1+#13#10'E2 = '+E2+#13#10'CB1 = '+BoolToStr(CB1))
    Else ShowMessage('User cancel the dialog');
end;