TWebbrowser & Copy Enabled

[toms]

Hi,

Moechte ein Copy Menu Item je nachdem enablen, ob im Webbrowser etwas
selektiert ist oder nicht.

Leider ist bei diesem Code das MenuItem immer enabled = False.
Was mache ich falsch?

Delphi-Quellcode:

var
  Flags: OLECMDF;
begin
  Flags := Webbrowser1.QueryStatusWB(OLECMDID_COPY);
  MenuItemCopy.Enabled:= (Flags and OLECMDF_SUPPORTED) = OLECMDF_SUPPORTED;
end;

Delphi-Quellcode:

initialization
  OleInitialize(nil)

finalization
  OleunInitialize