ComboBox.Items内容的读取。(100分)

再ComboBox.Items中添加了项目，可以保存到文件中或数据库中，取出来时，对于文件方式
用LoadFromFile就可以了，但对于数据库方式呢？怎么取出来，还有，如何在知道Items
中的一个项目的前提下，把这个项目从文件或数据库中删除？
紧急请教，多谢各位高手。

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
TmpStr: String;
begin
ComboBox1.Items.Clear;
Table1.First;
for i := 1 to Table1.RecordCount do
begin
TmpStr := Table1['SomeField'];
with ComboBox1.Items do
if IndexOf(TmpStr)=-1 then Append('TmpStr);
Table1.Next;
end;
end;

procedure TForm1.Button1Click(Sender);
var
i: Integer;
TmpStr: String;
begin
TmpStr := ComboBox1.Text;
Table1.First;
for i := 1 to Table1.RecordCount do
begin
if TmpStr=Table1['somefield'] then
Table1.Delete;
Table1.Next;
end;
end;

//if IndexOf(TmpStr)=-1 then Append('TmpStr);
if IndexOf(TmpStr)=-1 then Append(TmpStr);

Sorry,放了过错误

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
TmpStr: String;
begin
ComboBox1.Items.Clear;
Table1.First;
for i := 1 to Table1.RecordCount do
begin
TmpStr := Table1['SomeField'];
with ComboBox1.Items do
if IndexOf(TmpStr)=-1 then Append('TmpStr);
Table1.Next;
end;
end;

procedure TForm1.Button1Click(Sender);
var
I: Integer;
aStr: String;
begin
aStr := ComboBox1.Items[ComboBox1.ItemIndex];
Table1.First;
for I :=0 to Table1.RecordCount -1 do
begin
if aStr=Table1['fField'] then
begin
Table1.Delete;
Table1.Edit;
Table1.Post;
end;
Table1.Next;
end;
end;

多人接受答案了。