[marcoszorrilla]

Código Delphi [-]
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = Vk_Down then
  begin
  key:=0;
  ShowMessage('pulso flecha hacia abajo');
  end;
end;

Un Saludo.