点树弹出窗体

Question

现在点击树，弹出窗体，使弹出窗体上的一个控件如edit1的值为点击的树的名字。
弹出窗体的create里
  cxTextEdit1.Text := CompareOaF.cxTreeView.Selected.Text   ;
//  SPnodeno :=Pstr(CompareOaF.cxTreeView.Selected.Data )^ ;
竟不行，出错。为什么，，应如何来写？？

Answer 1

function frmTestShow(s: string): Integer
begin
  with TfrmTest.Create(nil) do
  begin
    try
      Edit1.text := s;
      Result := ShowModal;
    finally
      Free;
    end;
  end;
end;

Answer 2

谢谢大家，我解决了，用了一个共有变量，在别的PAS里，都用这个就可以了。。