1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // 37 => Pfeiltaste Links
  // 38 => Pfeiltaste Oben
  // 39 => Pfeiltaste Rechts
  // 40 => Pfeiltaste Unten

 if (key >= 37) and (key <= 40) then Key := 0;
end;