TListBox: Nicht srcollen bei .SELCTED := True

[Sharky]

Hai ihr,

mit folgendem Code selectiere ich aus einem PopupMenue die Einträge in
einer ListBox:

Code:

[b]procedure[/b] TFRM_Mp3_suche.Allemarkieren1Click(Sender: TObject);
[b]var[/b]
 ndx : Integer;
[b]begin[/b]
 FileListe.Cursor := crHourGlass;
  [b]for[/b] ndx := 0 [b]to[/b] (FileListe.Items.Count - 1) [b]do[/b]
   [b]begin[/b]
    [b]Case[/b] (sender [b]As[/b] TMenuItem).Tag [b]of[/b]
     0 :  FileListe.Selected[ndx] := True;
     1 :  FileListe.Selected[ndx] := False;
     2 :  FileListe.Selected[ndx] :=  [b]Not[/b] (FileListe.Selected[ndx]);
    [b]end[/b];
   [b]end[/b];
 FileListe.Cursor := crDefault;
[b]end[/b];

Jetz ist es aber so, das bei Case 0 und 2 die Listbox gesrollt wird.
Kann ich das verhindern?

Gruss und guten Rutsch