创建非模态对话框的有关问题

创建非模态对话框的问题
今天刚用delphi，向各位请教下RT的问题。
就是我创建对话框的时候，如何同时也能传个值进去？
------------------------------------------
比如CB里面有个 
int Index(0);
TfrmTest *dlg = new TfrmTest(this,Index);
dlg->ShowModal();
然后在TfrmTest的构造函数中将Index的值拿过来用就行
-------------------------------------------
那么Delphi中怎么搞呢？谢谢大家了

[解决办法]

Delphi(Pascal) code

var  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  Form2 := TForm2.Create(Application,100);  Form2.ShowModal;end;