Auch wenn es ein ganz klein bissl spät kommt, vielleicht ist die Lösung ja mal für jemanden nützlich:
Delphi-Quellcode:
function THTMLEditor.GetProperty(ACommand: OleVariant): OleVariant;
var
V: OleVariant;
begin
V:= Document as IHTMLDocument2;
Result:= V.queryCommandValue(ACommand);
end;
function THTMLEditor.GetUnorderedList: Boolean;
begin
Result:= GetProperty('InsertUnorderedList');
end;