Обработка клавиш на TListBox

[Melanholly]

Задача: при нажатии определенных кнопок(тильда или Энтер или ЛКМ) открыть другую форму.
Реализую

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: char);
begin
   if (Key in [ #13, #96]) then
begin
  if ListBox1.Itemindex = 0  then
   begin
    ...
   end;
  if ListBox1.Itemindex = 1  then
   begin
    ...
   end;
  if ListBox1.Itemindex = 2  then
   begin
    ...
   end;
end;
end;

Когда пытаюсь сделать на onClick действия выполняются вне зависимости от того какая кнопка была нажата.

[_SERGEYX_]

В смысле onClick на ListBox? Чтобы зажать клавишу и кликнуть по item-у ListBox-а?
А откуда он знает какая клавиша нажата?

procedure TfrmMain.ListBox1Click(Sender: TObject);
var
  State: TKeyboardState;
begin
{Получим состояние клавиатуры}
  GetKeyboardState(State);

{Если нажат Enter}
  if ((State[VK_RETURN] And 128) <> 0) then
    case ListBox1.ItemIndex of
      0:
        frmMain.Caption := 'Нажат Enter - Строка 1';
      1:
        frmMain.Caption := 'Нажат Enter - Строка 2';
      2:
        frmMain.Caption := 'Нажат Enter - Строка 3';
    end;

{Если нажат Ctrl}
  if ((State[VK_CONTROL] And 128) <> 0) then
    case ListBox1.ItemIndex of
      0:
        frmMain.Caption := 'Нажат Ctrl - Строка 1';
      1:
        frmMain.Caption := 'Нажат Ctrl - Строка 2';
      2:
        frmMain.Caption := 'Нажат Ctrl - Строка 3';
    end;

{... и так далее}
end;

[Melanholly]

Может я неправильно реализую, но логика должна быть таковой: есть listbox, в нем несколько элементов, по нажатию на определенный элемент открывается определенная форма.
Я пробовал это реализовать через KeyPress, перечислив там обрабатываемые клавиши:

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: char);
begin
    if (Key in [#13, #96]) then
    begin...

т.е. сначала идет проверка нажатия клавиш потом действия, это 2 кнопки, но т.к. это должно работать на кпк, где нажатие на определенном элементе и есть Click подумал что реализовывать нада всетаки там.
Вообще, вместо Listbox можна использовать PopupMenu, но там мне не удалось обработать кнопки, а в ListBox не удалось обработать нажатие мышкой.
Подскажите где не прав или как правильнее сделать.