mainmenu归零

Question

procedure TForm1.N10Click(Sender: TObject);
var
i:integer;
begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from Tsy_Part_Tem where fu_id=1');
open;
begin
ADOQuery1.First ;
for i:=1 to ADOQuery1.RecordCount do
begin
MainMenu1.Items[0].Add(TMenuItem.Create(self));
MainMenu1.Items[0].Items[i-1].Name := 'N_10_' + IntToStr(i);
MainMenu1.Items[0].Items[i-1].Caption := ADOQuery1.FieldByName('tree_name').AsString;
ADOQuery1.Next;
end;
end;
end;
end;动态创建了菜单,可以实现,但每次点击都会add,怎么办,我试了MainMenu1.Items[0].Clear;好像加在哪都不行,加了动态显示为零