procedure TFormDHTML.Button1Click(Sender: TObject);
var
aVar : OleVariant;
begin
aVar := clBlue;
// DHTML.ExecCommand(DECMD_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER);
// DHTML.ExecCommand(DECMD_SETBACKCOLOR, OLECMDEXECOPT_DONTPROMPTUSER, aVar);
DHTML.DOM.Set_bgColor(aVar);
end;