Fórum NewItem não está criando novo item em MainMenu #339543

procedure TfmMain.Clientes1Click(Sender: TObject);
var
  NewItem : TMenuItem;
begin
  if fmClientes = nil then
   begin
    NewItem := TMenuItem.Create(fmMain.MainMenu1);
    fmMain.MainMenu1.Items.Items[5].Add(NewItem);
    NewItem.Caption := ´&´+inttostr(fmMain.MainMenu1.Items.Items[5].Count-1)+´. Clientes´;
    NewItem.onclick := Clientes1Click;
    fmClientes:=TfmClientes.Create(nil);
   end;
  fmClientes.show;
end;