模仿百度的搜索栏,该怎么解决

模仿百度的搜索栏
想实现的效果如下：
当曾在搜索栏里写入过内容的时候，只要双击搜索栏便会在下拉框里显示那些内容，当鼠标是动到那数据去的时候，按键盘上的delete键又会把对应的内容删除！

[解决办法]
这贴又变成Del键删除的功能了，还是给你一个“近似”实现的代码：

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var Index : integer;
begin
if Key=$2E then
begin
Index := Combobox1.ItemIndex;
Combobox1.Items.Delete(Index);
Combobox1.ItemIndex := Index;
Combobox1.Perform(CB_ShowDropDown,LongInt(True),0);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
self.KeyPreview := True;
Combobox1.ItemIndex := 0;
end;