Auf Pfeiltasten reagieren

[a.def]

Nimm das KeyUp-Event und nicht das KeyDown:

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key = Ord(VK_UP) then
  begin
   Key := 0;
   ShowMessage('Hi');
  end;
end;