Criar Separador no Menu dinamicamente

Bom, digamos que você tenha um TMainMenu no form principal.

Crie um item de menu e insira no menu principal :

var
ItemMenu: TMenuItem;
begin
ItemMenu := TMenuItem.Create(Self);
ItemMenu.Caption := ´-´;

mnuPrincipal.Items[0].Insert(Posição do separador, ItemMenu);
end;