Keypressed

[RealSHELS]

Не получаеться.

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_up:stor:=0;
vk_left:stor:=1;
vk_right:stor:=2;
vk_down:stor:=3;
'z':stor:=4;
end;
end;

Так вот, там где 'z' пишет:
[Error] Unit3.pas(158): Incompatible types: 'Word' and 'Char'
Что нужно исправить?

[N!ckeL]

Есть функция ord(z):stor:=4;, но в твоём случае нужно писать код клавиши

[RealSHELS]

Спасибо, все нормально тапер работает

[_Dmitry]

Код клавиши совпадает с кодом заглавной английской буквы, которая на ней написана
ord('Z'):stor:=4;