请问f1book高手，draw listbox 用法？(100分)

用addobjitem添加时为何不见结果？

procedure TForm1.Button1Click(Sender: TObject);
var
ID1:integer;
begin
F1Book1.ObjNew(F1ObjDropDown,2,2,3,12,ID1);
F1Book1.ObjName[ID1]:='shenqw';
F1Book1.ObjAddItem(ID1,'eeee1;eeee2;eeee3');
F1Book1.ObjAddItem(ID1,'eeee4;eeee5;eeee6');
F1Book1.ObjAddItem(ID1,'eeee7;eeee8;eeee9');
F1Book1.ObjVisible[ID1]:=True;
end

YE!