Hogyan tudnám az alábbi kódot működésre bírni? Lazarus, freepascal, alkalmazás

a kódot alapvetően a Lazarus hozta létre, de hogy lehessen case key #-elni, ezért a :Word-öt átírtam :char-ra. Ettől elvileg kéne működnie, nem? Úgyis egy leütés egyszer hívja meg egy karakterrel, aminek számértéke is van

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: char;

Shift: TShiftState);

begin

case key of

#80: form1.activecontrol:=button4;

end;

end;