//
------------------------------------------------------------------------------

procedure Tfrm_Main.pm_EditorPopup(Sender: TObject);

begin

    mni_Undo.Enabled:=
document.queryCommandEnabled('Undo');

    mni_Redo.Enabled:=
document.queryCommandEnabled('Redo');

    mni_Cut.Enabled:=
document.queryCommandEnabled('Cut');

    mni_Copy.Enabled:=
document.queryCommandEnabled('Copy');

    mni_del.Enabled:=
document.queryCommandEnabled('Delete');

    mni_Paste.Enabled:=
document.queryCommandEnabled('Paste');

    mni_selectAll1.Enabled:=
document.queryCommandEnabled('SelectAll');

 

end;