類似Access查找中的記憶功能

procedure TComLocateFrm.LocateBtnClick(Sender: TObject);
　　var
　　   setLoOptions : TLocateOptions;
　　   i : integer;
　　   slKeys : TStrings;
　　begin
　　  if ComboBox1.Items.IndexOf(ComboBox1.Text)<0 then
　　  try
　　    slKeys := TStringList.Create;
　　    slKeys.AddStrings(ComboBox1.Items);
　　    ComboBox1.Items.Clear;
　　    ComboBox1.Items.Add(ComboBox1.Text);
　　    for i := 0 to 8 do
　　      if i < slKeys.Count then
　　        ComboBox1.Items.Add(slKeys.Strings[i]);
　　  finally
　　     slKeys.Free;
　　  end
　　  else begin
　　    i := ComboBox1.Items.IndexOf(ComboBox1.Text);
　　    ComboBox1.Items.Insert(0,ComboBox1.Text);
　　    ComboBox1.Items.Delete(i+1);
　　    ComboBox1.ItemIndex := 0;
　　  end;

  if rdoExactly.Checked then
　　     setLoOptions := []
　　  else
　　     setLoOptions := [loPartialKey];
　　  if Not DesDataSet.Locate('ZTM', ComboBox1.Text, setLoOptions) then
　　     MessageBox(Handle, '沒有找到符合條件的記錄。', '提示', 0+64);
　　end;