LAN Web TCP Delphi

{
Before you copy text in a TWebbrowser, make sure that the copy
command is active.
}
{
Um vom aktiven TWebbrowser Text zu kopieren, sollte man überprüfen,
ob das Kommando kopieren aktiv ist...
}
procedure TForm1.ButtonIsCopyEnabledClick(Sender: TObject);
begin
if Webbrowser1.OleObject.Document.queryCommandEnabled('Copy') then
ShowMessage('Copy is active/ Copy ist aktiv');
end;