combobox.Items.AddObject问题

[lfcq]

以下功能模块,生成的对象,应在哪个位置进行free,
如果不进行free,对系统会不会有些影响?
//*************************************
//列出房间类型函数
//*************************************
type myobj=class(tobject)
public
s:string[40];
end;
procedure introomtype();
var typeid:myobj;
begin
typeid:=myobj.Create;
datacer.adosqlroomtype.First;
frmsysset.cmbroomtype.Items.Clear;
frmaddroom.cmbroomtype.Items.Clear;
typeid.s:='0';
frmsysset.cmbroomtype.Items.AddObject('所有房间',typeid);
while not datacer.adosqlroomtype.Eof do
begin
typeid:=myobj.Create;
typeid.s:=datacer.adosqlroomtype.fieldbyname('roomtypeid').asstring;
frmsysset.cmbroomtype.Items.AddObject(datacer.adosqlroomtype.fieldbyname('roomlx').asstring,typeid);
frmaddroom.cmbroomtype.Items.AddObject(datacer.adosqlroomtype.fieldbyname('roomlx').asstring,typeid);
frmaddroomp.cmbroomtype.Items.AddObject(datacer.adosqlroomtype.fieldbyname('roomlx').asstring,typeid);
datacer.adosqlroomtype.Next;
end;
frmsysset.cmbroomtype.ItemIndex:=0;
frmaddroom.cmbroomtype.ItemIndex:=0;
end;

[budded]

你可以用一个TObjectList来管理创建出来的myobj