Заставить работать клавишу Enter для события ToolButton1Click

[AndreyF]

Добрый день! Помогите задействовать клавишу enter на клавиатуре для события procedure TForm1.ToolButton1Click(Sender: TObject);
Желательно поподробней!

[mihali4]

Эх-х-х... студенты...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_RETURN then
ToolButton1Click(Self);
end;

[AndreyF]

Добрый день! Очень нужна ваша помощь. Необходимо чтобы в поле ввода работало сочетание клавиш Ctrl+C.
У Edit стоит ограничение на вводимые символы:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#8) or (key in ['а'..'я']) or (key in ['А'..'Я']) or (key='-') or ((key='#17') and (key='#67')) or (key='#17'+'#86') then
else Key:= #0;

keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(Ord('C'), 0, 0, 0);
keybd_event(Ord('C'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); }
end;

У Edit ещё выставлено CharCase:=ecUpperCase;
Никак не хочет работать. Я читал на форуме ваши сообщения CTRL+V, только не смог их применить.
Помогите найти ошибку.

[mihali4]

Нужно использовать события, обрабатывающие состояние функциональных клавиш - OnKeyDown, OnKeyUp.
Например:
Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Key проверяйте на соответствие "С", а Shift - на нажатие CTRL.

[AndreyF]

Благодарю, сейчас попробую.