Item in Listbox per MouseMove auswählen

[Taladan]

Hab den Fehler gefunden

Delphi-Quellcode:

procedure TRegelDialog.ListBox1_MouseMove(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
var p : integer;
begin
  p := listbox1.IndexFromPoint(e.X, e.Y);
  if p <> listbox1.NoMatches then begin
    Listbox1.SelectedIndex := p;
  end;
end;