一个对于你来说很简单的问题，进来看看。

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
 treeview1.Items.Clear ;
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select distinct a,area_name,b,c from i_area where  b='+''''+'0'+''''+'and c ='+''''+'0'+'''');
 ADOQuery1.Open;
end;
在同一个窗体中，我也想调用该事件。
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.FormCreate(Sender: TObject);
end;
但是出错，应该怎样调用呢？拜托。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  FormCreate(Self);
end;

Answer 2

写一个函数，调用一下
procedure TForm1.sqlquery();
begin
 treeview1.Items.Clear ;
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select distinct a,area_name,b,c from i_area where  b='+''''+'0'+''''+'and c ='+''''+'0'+'''');
 ADOQuery1.Open;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sqlquery();
end;procedure TForm1.Button1Click(Sender: TObject);
begin
 sqlquery();
end;