combobox控件的小问题（动态添加到ITEMS）(20分)

items中有如下内容，设计时添加
10
20
30
问题是如果我在录入数据时直接输入40，COMBOX如何判断40在items有没有，如果没有
则提示是否添加
还有如何动态永久添加到ITEMS中去，

谢谢

if combobox1.Items.IndexOf(edit1.Text)=-1 then
combobox1.Items.Add(edit1.text)
else
showmessage('已有此项');

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)<0 then
if Application.MessageBox('Add to list?','test',MB_YESNO)=ID_YES then
ComboBox1.Items.Add(ComboBox1.Text);
end;

如果要永久保存，可以保存到ini文件或者数据库中。

多人接受答案了。