自定义过程:
procedure treecreate1();
begin
  showmessage('asdf');
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  treecreate1();    //调用该过程
  form3.Show ;
end;
运行时没有反应,请教哪里错了。