请问如何把选中的Listbox内容复制到内存中(30分)

我在Listbox中枚举出一个数据库的表名，为了执行SQL 命令时能复制表名，
我想把Listbox中选中的那行文本复制到剪贴板中。
我按Ctrl+C无法复制。
无奈我在ListBox1KeyDown中借助EDit1(Edit1为隐藏的）
if (shift=[ssCtrl]) and (key=$43) and (listbox1.itemindex>=0) then
edit1.text:=listbox1.Items[listbox1.itemindex];
Edit1.CopyToClipboard;
当我在Listbox中按Ctrl+C时成功在Edit1得到表名
但是当我在要用到的地方如Memo1中按 Ctrl+V时发现根本没有内容。
为何会这样Edit1.CopyToClipboard; 不是复制到剪贴板了吗？
请问该怎样做？谢谢！

if ( [ssCtrl]=shift) and (key=67) and (listbox1.itemindex>=0) then
Begin

edit1.text:=listbox1.Items[listbox1.itemindex];
Edit1.SelectAll;
edit1.CopyToClipboard;
//Memo1.Lines.Add(ListBox1.Items[listbox1.itemindex]);
end;

谢谢了！　
原来我是少了Edit1.SelectAll;这一句!才没有复制到剪贴板～