[ApplicatiOn]

При нажатии на клавишу "ВВерх" или "Вниз" в поле Эдит необходимо задать действие

пробовал сделать так:

Код:

procedure TfmMain.MEditKeyPress(Sender: TObject; var Key: Char);
begin
if key = #26 then
...
else
if key = #28 then
...
end;

Тут коСпилятор не ругается однако результата никакого...

26 - означает стрелку вверх (виртуальные клавиши) подобно virtual key up (vk_up)
28 - означает стрелку вниз (виртуальные клавиши) подобно virtual key down (vk_down)

идем дальше...

Код:

procedure TfmMain.MEditKeyPress(Sender: TObject; var Key: Char);
begin
if key = vk_up then
...
else
if key = vk_down then
...
end;

коСпилятор пыхтит аж покраснел..

в чем дело? как осуществить задуманное?

заранее спасибо...