delphi - OnKeyUp でリストボックスの複数選択がフォーカスを失う

Question

2 つのリストボックスがあり、両方とも Multiselect:=True を使用しています。選択した項目をクリップボードにコピー/クリップボードから貼り付けるポップアップ メニューがあります。すべてが意図したとおりに機能します。

キーボードの CtrlC (コピー) と Ctrl+V (貼り付け) を追加したかったのですが、アイテムを選択した後、Ctrl-C を使用すると、選択したアイテムはすべて選択を失い、リストの最初のアイテムが選択され、クリップボードにコピーされます。

KeyPreview とメインフォーム OnKeyUp を使用しています

if (ssCtrl in Shift) then
begin
  case Char(Key) of
   'c','C' : puCopyClick(Sender);
   'v','V' : puPasteClick(Sender);
  end;
  Exit;
end;
case Key of
  VK_Delete : puDeleteClick(Self);
end;
Exit;

ポップアップのように Ctrl+C などを機能させるにはどうすればよいですか?

ありがとう