最终还是用 DHTML 来搞定这个插入一个 Table 的问题。

procedure TForm1.Button5Click(Sender: TObject);
var
insertTableParam: DEInsertTableParam;
ovInsertTableParam: OleVariant;
begin
insertTableParam := CreateComObject(Class_DEInsertTableParam) as IDEInsertTableParam;

insertTableParam.NumRows := 4;
insertTableParam.NumCols := 5;
insertTableParam.TableAttrs := 'width=100% border=1 bgColor=#ffcdcd';


ovInsertTableParam := OleVariant(insertTableParam);

DHTMLEdit1.ExecCommand(DECMD_INSERTTABLE, OLECMDEXECOPT_DODEFAULT, ovInsertTableParam);

end;