Submenu Einträge löschen

[Alexander]

Hallo
ich habe ein Problem beim Löschen der Items eines Submenus. Hier mein Quellcode:

Code:

procedure TEditForm.eigeneBefehle2Click(Sender: TObject);
var
  Ini: TIniFile;
  NeuesMenuItem : TMenuItem;
  i, int : Integer;
begin
   stringliste2 := tStringList.Create;
  try
    Ini:=TIniFile.Create(ExtractFilePath(ParamSTr(0))+'daten\config\befehle.dat');
    Ini.ReadSection('befehle', stringliste2);

 //   eigeneBefehle2.Clear;
    for i:=0 to stringliste2.Count -1 do
     begin
    NeuesMenuItem := TMenuItem.Create(Self);
    NeuesMenuItem.Caption := stringliste2[i];
    NeuesMenuItem.Hint := stringliste2[i];
     NeuesMenuItem.OnClick := unsicht2Click;
    eigeneBefehle2.Add(NeuesMenuItem);
    end;
  if (eigeneBefehle2.Items[0].Caption = '') then
     eigeneBefehle2.Items[0].Destroy;

  finally
    Ini.Free;
  end;

end;

Ich wollte eigentlich die Items mit Clear löschen was aber irgendwie nicht geht. Wie muss ich sie dann löschen??
(Wenn ich sie mit clear löschen und dann wieder alle Items einfüge, so will das Submenü nicht aufgehen!)
Danke schon mla